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F7 3'>-1--fh 


57 


|-7=l'>-^-fHI 


58 


K7^>aK-f-saeift 


59 


II-pA-LI" 


60 


(fft<7)S2<±SBS> 


61 


(Ift(7)SI8-«S@¥ftte 


62 


iiftOTifa-awaffisi 


63 


/WKWKa 


64 


/s'ax-f77 


65 


t'-f-777"#-§- 


60 


t'-f"777"B*S 


67 


fVi'Vv?^*^ 


68 


77-f1"^77>7v- 


69 


77>?v— W 


70 


77>?'A7-f7'7 , J-## 


71 


771- i* 


72 


7U-F=17>7'-II 


73 


FRAY 


74 


ft(7)»'4*!S 


75 


»>»*!§ 1-2-3 


76 


MIDI-tOJU^ 


77 


#£HDi±'7» l J:*lI 


78 


RI?«I1 


n 


57t--M7l-7yF> 


8t 


7>^JL — JU 


81 


JI,->777-HilS<»e 


:-;, 


7L— VT-^ 


1 


U-f • a> 


B4 


n-K^*«SE 


3^ 


a-KxAWIE-Stt* 
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3SMSX 



*©*A JP-t- l VE>5?< • 9-Jb 
•2/U77«lICB*ftC**ftU^72;« 



fci*3<D#»B5l!ll*fi*3i«l*T<tt 
9llflU&/vrU£l^bfco3Stl3 l JXA5 






fio5 jesaiaE»«4-iD-7. 

TIM AV3VV7WSJftS ! 



■«MWBaBMI-33-MV:/757-t:JI> 
Bl-BS/<tV3>V7MM«n 



I mm x?h T'^a^ieL 
yy— *— iw»rwa 

| S*S. *ffi7-UD570i7' 







vox fc&ro^ij-y^s-ircajtT 

IOOESGD+tJL, W^ft^-Y^+Ml 
-5IS„ 'B*Sf*OT#ft(ZoL'*)ICO-S 

ii? share riW*. ct53fcro#£ 
PADMISS PAD(1 2)~PAD 

(1 4 ) lijK— h lro^^^feiih 

5'»5*'-Mffl.PADH 6)~PA 
D(l 8)IJj«-r- 2cD7^7X(*tli 
r-^'V^iK-Mfflftf. ISAMCt. P 
AD(())~PAD(3)tf*'-h 1 W? 
7L/-V hffl, PAD(4)~PAD(7) 
#7K-h 2 ro-J^b-y hffl. PAD 

*'- McHLZt-tSOJfcliMS X 

YxfY'^cftiti^i. ens- 




&Ajc!:&<, tt& VXXJ± 

siursutce, fcfc% z 
tt©Bnt©rtt&i\o 

©£#)„ Si^fcGDtt, 1991^3 
^©1^7 >^- h 1 000^© 
*lt«SSo :7bt!>h©ffiSl£ 

SA#*fr61000$i£*^r 
*!tlyrn-5©/c 
■354Ag©7^3. • n.— tf- 

^©-M4CJ;-§i:, 75^5 
}f-3rn§AB1000A©5S 
354AfcU3 ^CK MSX2 



-+f-©35A--tz>Ktf-rrC 

A^©3^©7>^- KSllt 
JgH^JSOtBUr^fc,, 1000 A 
^fc'0254Aoffi^C ; feSo^O 

1 ^H©snycC, voxii 



r ^x7j£10A-te>h=fcf$B' 

brut©£ 
HxfcA&jbMOOAtUdffi 

©-9-JbjtU51S^SL\hBUfc 




i:J:5ft*aa#-y->7Jk fSS30&. B/f-SWFf.V-ft- 79^7 
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iv£*#e>«««gi:raraRi» 




fciU5XkfV-S£o fc53 

tt^<^ns©<i/co 
Sxfc354ASA\ : febA x Ufc6 

r iooEg©-y-;bjA N; feLnsno 



V0^ri7^5d:^/L,\Ufc©/c 

ofc 

■5o©SU 

B, ±H©d:5&5-3>©iaS5C 

STR I GUitlsya^Xx 
•<^©A, BTtt'^Vt^^fc 

<£&i;r\ pad(i 3), p 
ad(i 4>», tn^nxmm 



STRIGd) 
STRIGO) 

PAD (IS) 
PAD (13) 
PAD (14) 



f&D^, yu^^hiftchtz 

/u-rrCo fcfc\ padu 3). 

PAD(1 4)^ffi5iliuCPA 
D(l E)£&/ut>fr©ff?7l£o 

ZfflPADU S)l*s r ft53 
£!!£:&< USRSttStCMTU 



10 DEFINT A-Z:COLOR 
AGE 1.1 :CLS 



15,0,0:SCREEN 7:SETP 



20 
30 
40 
50 
60 
70 
80 
90 
LSE 
100 
110 
120 
AGE 
F$ 



SCREEN,0:SPRITE$(0)=CHR$(128) 

P = PAD(12) :X = X + PAD(13) : Y = Y + PAD < . 1 4 ) 

IF X<0 THEN X=0 

IF X >5 1 1 THEN X = 511 

IF Y<0 THEN Y=0 

IF Y>211 THEN Y=211 

PUTSPRITE 0» (X¥2.Y-1 ) '8 

IF STRIGd) THEN LINE ( X0 » Y0 ) - ( X . Y ) E 
IF STRIG(3) THEN PAINT (X,Y) 
IF STRIGd) AND STRIG(3) THEN CLS 
X0=X: Y0=Y:GOTO 30 

INPUT "L/S,FILE";A$,F$:SCREEN 7:SETP 
1,1:IF INSTR("LlSs",A$)¥3 THEN BSAVE 
0,&HD3FF,S ELSE BLOAD F$,S:GOTO 20 



aTK-SETIiSTR I G(E) 
K/K-SErBSTR IG(4) 

Toe-3©MS^«usc-rfc»© 

B/K-SE'CBPADd B) 

tl5(a©7?(qltfiE)o 
sS/K-SETIiPADd 7) 

Sua ll^M&SX^fcWijSfrb. Y 

n§(T©75|SltfiE)„ 
*7tt-SEriSPAD(l B) 



U3.M B, IBffiitSJrffiil 

©SUfcC^-fV^^IS, *© 

JKx^^-f S)^iJ^1"fcto© 

[jfco 33^E^>t, ST I C 



£vs. &0o&U £6©?K£>£ 

-^Bu *"9\ CTRL+STOPr 

GOTOl 30 

£»7 r L/S, NAME?j£Bf]l\ 
r<-5©^. n-K&b r L, (771 1 
Jl/g>j,tz-7&b r S, <77'fJbS> J 

iS^o t<C, SCREEN7©^- 
yi CHSLrUSfflli. CTRL + 

sTOPurtiietf^x.JEfUct^c-r 

Stffi, •S30AV9Xfrb©Jl<IW 

•RBOB. KvK*-V^UOaWo X 
¥EliSCREEN7©fc»o »it 
90. 100BM. mo-DS-^s wmo'j 

SUrfi3DCt£'So«^TieOI3;33^l7 
©P-K, tz-7«Hg„ 
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«is> is# sstii. i**«, feu 

n« r -fj&i:"C0CtT", 'Jvfrlvfr, a. 
3, 7, -r. 5, i. 7i-roc£:„ tid-B 1 
IS, ot>#3, -3£3#T r >;/.iro;:<!:„ 
cn^roS^ii-r^xiiSroA-S^ro 

X^Xftffl LXfc ?> -5 d t E L fe„ 
I NSTRB55X 'J7,hl(73fi-130t. 

N= I NSTR(A$, B$) 
5i]B$(£OXlM£l X^rfiiCt 

tf^i/Otfa-smx^&i-tnii'.Niio 

CSS. B$*'A}©mJtfai;^ 

nxo-stsi*. NEismrotttfAs. 
crottH£fJfflLX. x^nfcx* 

AIS'B$*?Jb*-f^^"9. T^US 

^-tztfssroxsm*. Sfc. crow 
T\v5i, A$ro*AC, feTloiR 
(KroA"5>.— 9*"3Wr. ASroftlS 
roftX**A,**ftffi^--5 J; -5 fc*SW 

-scttx^-s. 



iM,(Dt\ yOT. ■ a-+f-(s 

^©^SlOU/co 

ftCfflRflDAB©****. - *:* 
3 fSt, r =iy2'J£/ujtf 

■*'j5Wi*«3u»0yfcA* 

Uyi? l J&A l d:lV5£:, Cfr 

U±S©'V*^&c:*;MtU 

S*V5£L\3U3B!Bfc*(i:/!>\ 

U5Sofco 

r-t, UAtf¥^-E-K.riifr 
roir, ftJl©;liSEIi©d; 




i' 



7i^ / 



f-3^©g5©Mcor, ft 
B#©ay£'J£/ul;m£3 

*3tHyv?:i!]frLr'frffl5 i GOTS-g- 

£**«», aSJ¥33y2UtS 

tfJSttri/*ofc)Buft©35l> 
fcA-SfflkDSfcftfrl/r, ft 

;¥itCfiU BAS I Ctf^n 
wO •*<J*Wl/©3y£ 1 J£ 

frtun&nfflr, Sfi©;7^T 
^^urn-s, ?fflAA x 6©y 

-7 tz— *}%&%?> A©3 £ ZN 
»&/ul;:fifofc& r -a.— t^ 

©$tffc<£/v&bA/?nfc 



5^:^C r lDDE5@©-y-Jbjffl5 
3--^-- C35ofc 
VOX - 5H»*5-*ffc5C: 

fe„ 5C?^Cf^-5X¥©aS© 
5SXf|l:bfco t^t^ 

BH©3»©2< &U*i5WU 

Z©X?8Ifrb 1 X?3*^£ 
UttiU-&©T© r OTSUGE 
BOARDj(WTOBtig)C 
«^f-§^<t:CUfc -€-©£lA 

;i/*5fcC5I»fcO, tdrCfci: 




O K-^-yi!ros-v;uT3t**HA. S? 'J 7?i»tt*7-3- k I3roa6ai;*- 



T, TroOTSUGEBOARDdTtroX?**?***,. 
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i;h i > J (BS*-£fc&i;)ffl 

5CUfc 

©ftfrCEX-SX?^ LOO 
BC»S3fcA v «ofc<. *=&* 

ntfif-s^or^wurn-g.© 



[Z{jZfrtzti\ 353e9£fcU3 
Z l\Z>A(Dz>-£tznftt)\ r 3© 

375SCCbfco 3e>UT&<<±:. 
££©.>< \vtz— 2>?K— KCffi5 
W&CtttOcfclV, 

t35r> Z©7D^'^A© 

Hfucwbrfc, bas i ctf 





SK>Hffi 



ILUS2 7£*-*i»*:7— 



10 

20 
30 
40 
50 



COLOR 15.12.1 :SCREEN 1>2:WIDTH 32 
KEYOFF :DEFINT A-Z:DIM A ( 31 ) : W = 27 : L=3 
PLAY"V15T255L64" :P$="06GC" :Q$="02FE" 
DEFFNX =C MOD W+3:DEFFNY=C¥W MOD L+18 
FOR 1=0 TO 7:A(I)=VAL("&H"+MID$("071F 
3F7E78F0F0E0" , 1*2+ 1 . 2 ) ) : A ( 1 5- I ) =A ( I ) : A ( I 
+16)=VAL("&H"+MID$("E0F8FC7E1E0F0F07" .1* 
2+1 .2) ) :A(31-I)=A(I+16) :NEXT:FOR 1=0 TO 
31 :A$=A$+CHR$(A(I) ) : NEXT : SPRITES ( ) =A$ 
60 SPRITESd )=STRING$(7,252) 
70 FOR 1=0 TO 15:VP0KE 777+ I . VAL ( "&H" +MI 
D$("10307EFE7E3010001018FCFEFC181000">2* 
1 + 1 ,2) ) :NEXT:FOR 1 = TO 3:VP0KE 8204+1. & 
H48:NEXT 

80 FOR 1=0 TO 7:READ A$:LOCATE 2>I*2+1:P 
RINT A$;:NEXT:FOR 1=0 TO 4:READ A$:LOCAT 
E 2.17 + I:PRINT A$ ; -.NEXT 
90 PUTSPRITE 1 . (24. 143) .2 
100 P=PAD(12) :DX=PAD(13) :DY=PAD(14) 
X=X+DX: Y=Y+DY 
IF X>237 THEN X=237 
IF X<8 THEN X=8 
IF Y>120 THEN Y=120 



1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
0R = 



IF Y<0 THEN Y=0 

PUTSPRITE 0. (X. Y) .4 

IF STRIGd ) THEN GOSUB 200 

IF STRIG(3) THEN GOSUB 330:GOTO 90 

GOTO 100 

V=VPEEK(6177+X¥8+( (Y+1 )¥8)*32) 

N=INSTR(" abyesno" >CHR$(V) ) 



IF 
IF 
IF 
IF 
(12 



260 IF 
.0.3): 



N=1 
N = 2 
N = 3 
N>3 

,7.0 
N>6 

PLAY 



THEN 310 

THEN C=(C+W*L-1 )MOD W*L:V=0 

THEN V=32 

AND N<7 THEN FOR 1=0 TO 3:C0L 

0):PLAY P$+P$+P$:GOTO 310 

THEN FOR 1=0 TO 3 : COLOR= ( 1 2 . 

Q$+Q$+QS:GOTO 310 



[ttUJ51#l AfrbKATl z>(D^O 

-eroX^tfTITSUGE BOAR 
Dj(iyTOB)C«=^inru<o»X 

liBS^-ta&Uo • r yes J ro- 
-S8#<&0, SUitflS. r nOj 

^mbz^'j-yvt&t. mmtf— 

[7a#5A©l!§H«fi20®A(3 1 ) 

->E«B„ SKWISDBC«^Rlffi 

t, oB©X'yiz-yfc^^-7.;tf 

gft-5 (fc£ U OB-^rotOffltitlg 
W3StobttU)<,«l730B:SC5?MI£ 
So •!=40l=tffi80, 3D0ri5^^-+f 
-SRMSSfflSMo •it50BH-^ 



©)©T'-^ : &ER"rSt»CBS9J^ 
Igofc, OTISOBSM-VJWOX? 

->S^lo WOK, r «=j(a), r ^j 
(b) */W— VJ6BU WM&8. M 

mS4CKSo r yesj, r nOj©X 
^coetsttor^orU'So •hBO 
B, JtfKtOBtDfe MOBOB 
ffl+j-VJl/fc^SSSffiBCS^o •£? 
100-160B, UXK 1 iffl«. »fa 

170~ibob, ^u^^jsur-en 
■enowi-w^M-So •moob. * 

VlCta^o S310B, ^COX^MSo 

,3o5>rox?fflanBN# o tfcd, 

•+- , ;/S! + J-VJl/©e£Sfc£+i. g£ 
t±J U f}280rOB CXf£»Sofr290 

roB«^fflfc®0^^eB©^ov 

$>C£SSU730(mOBffi+J-V.)U£ 
»R.fi3lOBgffl*Sto9£^5,?T320 

•i=33DB.6©7n'^>^ffUfci:Sffl 
QB^-K^'JT'+J-^o •M40~i7 
4B0o X¥IiOBMX¥x-5. r 



270 PUTSPRITE 0..13:PLAY P$ 

280 VPOKE 6144+FNX+FNY*32, V 

290 IF V THEN C=C+1:IF C>=W«L THEN C=i 

300 PUTSPRITE 1 » (FNX*8.FNY*8-1 ) .2 

310 IF PLAY(0) THEN 310 

320 COLOR=NEW: RETURN 

330 C=0:PLAY Q$:FOR 1=0 TO 2:L0CATE 3. 

+I:PRINT SPC(W) :NEXT:RETURN 



340 DATA"? < 


->!*»# 


>j 3 9 =/ 


7. t V 


350 DATA"? f 


V f h t " 


3? * ) l\ C 


7 *> *" 


360 DATA"? E 


L i t f i 


3 5 'J IU U 


D n 9" 


370 DATA";- 


• * - b 


»•**♦■# a" 


380 DATA"A B 


C D E F G 


H I J K L 


Ml? 


390 DATA"N 


P Q R S T 


U V U X Y 


Z . ." 


400 DATA"0 1 


2 3 4 5 6 


7 8 9 + 


- * /" 


410 DATA" yes 




no" 


420 DATA" i 






430 DATA" 1 






I " 


440 DATA" 1 






I " 


450 DATA" 1 






I " 


460 DATA" ' 








yn^^hMmm^-^ 


&>\."-%tt&y<— i> 






10>1w20 


20>jM70 


30>F3B0 


40>WNB0 


50>TXW5 


60>nJ20 


70>52f 1 


80>D1 j0 


90>VM10 


100>bOA0 


110>jA30 


120>2J30 


130>Nu10 


140>C920 


150>Rs10 


160>a810 


170>Af20 


180>Wo30 


190>hA00 


200>SR90 


210>aq50 


220>s810 


230>2GD0 


240>ex10 


250>w9U0 


260>cBN0 


270>QY10 


280>DC40 


290>2RB0 


300>EZ50 


310>FB10 


320>DY00 


330>4KH0 


340>idF0 


350>ThG0 


360>nIH0 


370>8VB0 


380>hD70 


390>Qq70 


400>Ap50 


410>XC50 


420>3JH0 


430>PZ50 


440>PZ50 


450>PZ50 


460>fMN0 
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!P««gnO 40/59 

'PBBBUfiSO 41/60 

my— vm/jo 41 /ei 

'PB&Z-mmO 42/62 

E?;HJ>© 42/63 

PJRETORT OF SLIMEO 43/64 

EGREEN WALL© 43/65 

STANK BATTLE© 44/66 

PjgTKfll^-A© 45/68 

Ibr-ObS/a^'Sl© 45/70 



STWIN BALL© 46/77 

PJCRACKS© 47/71 

WB%<DMG>mwQ 48/73 

[PFUNNY4BOY© 50/82 

•^7>^A7.^7^A=lft7P^^A CAR 

RACE TO^P^Aii lifr 52 

•7i/>!S(Dfi85 54 

•x-K-tf =¥•*■- xmm 56 

%Z>yy^h INFORMATION- -B7 

*Kli:7n?'5A, ©~3 



OS 

i\ it 
<\ b 
^ a; 
ft Jb IB 
© 7 ;& 
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u 
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mtm.7.0 n-)\>t?>mmtiia>M%& 



I2/2+RAMI6K 

by SILVER SNAIL ► U X h £59^-^' 




(5^^"^#t^) 






/umKfflfcofco 

tf v i> >f§^f£ o r MX o p - 



g^5c liHTC5S5rU3:5 
i-if— A?T— A— o €-5&6& 



P^'^AICISSWCLEARX 




0£_LT*i:^5<nASE* • 



OSa >tJ)-p XHaOV.% *> ^WKX-fri 



Q$EAX<=7/ fcl'-JfcZ^T, <?'J* < **Si:yoA-l-fT, <•(.><•».». -fe-7 
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CS32/2+ VRAM64K 
J by HIDEYUKI ►UXSBBO^- 






IfU 



QBVXn~*MM<nPtt>il£hX-i&fr'PTL\ :'l : 77.l^'A•SS£ , <^'*W,rt ( 'b^*^fc :, 




IiIi©±©l5-5££SCffil 

lidurns©;/^ may?—? 







(j^-efeiQi^tT) 




.6 



SP4CE 



3©^-A©g1f ISfcgS^ h^ 
4, 3x3©AS*^}fo -E: 
nc*-VJL/+-r'±T£6l^ 

*tlttd:t*<, y-AAM3 

g©ptfiSor«st?fr-s„ § 




" CS3CSa2/2+ RAM8K 

. by HIDEYUKI ► UXMi61^-^ 





SRACE 






©a*— 2*— fcStTi ?<7>£ 3OTBTL — -tf— jt^ft'as i * < 7— fc'SASrSA- ti T 



27WtfS©1£n75o ©^^ 
& LACDT^ -f 5 > #£1 J-fflfliMo 

^©^ivp-rn^vwcfis© 

<Hti"t)DfrttiZ< : 5»£: 
fc£>y-A*-A- fc/c, 17 

y'C3ii^sfflr\ s^ot- 




Q±i!S.t ZitT tV-i^X-'t-l-'iZ 
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SPACE 



E£3E232/2+ RAM8K 

by Nu~ ► , JXhliB2^-S>' 



s 



T\ 



ofclc:^b&tA<&$ r fPtffl& 



"iar 



£&fcttt$izr©g£g}gu fo wytstrnm^o. ^oafrSA^stufraut 









li(±, fl^fflNU -£^(44 

a)©¥seA N 6rufco 3©s 



v?o iw&. mzuztttc 




->-, titii,. tt->„ ">*>->*>*—/ 






EE3EE32/2+ RAM8K 

by Nu~ ►UZK(i63 /, <— V 







H&IR5l*fflS-§y-A^o 

IX-g>t£w©»>51t^©5tf ; ± 
fTT^o IX Obtest, 3ft 

:7WtfH@©±©S5C& 




5 £+-JifF<!: S 5©B* A' ; iS 



•C'©§I^A' ; 7X©SC&5©/co 
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RETORT OF SLIME- 



'JS-S-Ttf-^A 



(VtT-fr-^^t) 



CS3CS32/2+ RAM8K 



by mmx 



► U^S[iB4^-y 



©Si!j 1g2>7JL/&X^'fAtf 










SPACE 



7,^-rAi:©FB^L^IXor 
©ISSO^^V^-^^M 

ttittl3WJ<= UfrU 3.^-fA 
iI«©il*©iIl©iS«£3l/c 

futt'intbttto 




1<7U i C* v-f AMS'J tlf«fl»*> 




GREEN WALL-— 






1ES3ES32/2+ RAM8K 
by BifflH^ ► 'JXMi65^-^' 



f 



SPACE 




fc!ig©gtfBor<-£. 



ur, t^-Tafflis©^^ 
s&tt&<r»w&n©/c 

ilZZV, ±T©SCBT© 

-e'niDD^^655^sr'©^is 



C GREEN 
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e 


ALL 1 

1 : 8 

i a 


| 


Ih ma 
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> - 

a : 
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TANK BATTLE — 
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1 CE32/2+ VRAMB4K 
by MO- ►UXhliBB^-^ 




7 LT^-^S)! 



*°-K 
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-■mmm^Mfj^zmwzmw 
i\£wmm&ozt5.\,wiZo 



)7°lt / ^aaresQ 



fc£U SftftM(D®W%® 

%%vtzMm^nuiw-c 
Mz.z$5z\z>ti 
UB'6<ur 
r 4Ar , AMH=n'l?Ji^fc 

to ^irn> 7ry-t&* 
</u 3-<X£-/KR£teofc 

r ^AI5>!«SyTANK BA 
TT L E jtf rSSA'^ fcA\ * 

B0 2A«Sttffet.L5Uo 

El • 

yu-r-f-i (je^s*, Tw-f— 2(i 




u/aLT^fclliA*, A"*oT«£¥rot!i 



l«5i LA-U *<7)AXAXLfc<SCA'7r;loTA-'-A£i*+>'-f-?-f'>5> r i::T-5 



3fc><Z)imj)8ft<ZW<;Ltt? 










ossl wisest l. fc m im m<nm* 
tm-4&*>Ltz 






44 



Efe& 






rf~* 



CS32/2+ VRAM64K 

by nsm 



► UXSBBB^-y 




S.I& £©7-AfflfE#0IEtt 
£*OOfc<S§£:-5o£S5o 



r'fcNu~2/u£ffinr£±s 
A;. £f±©AC[S]fror:;z5n 



aoo ixvzxymm\zmvc 

\>M J D075SPX &U0&& U 

cfc 5 fry-A#g« L/ r * fc r 

3555^gftnScfc5&y-A 
gBtiffl;S£if$;tf 8HS3 o r n < © 



r\ snacsun 
sirs. 8&0;*fc!-KttS@ 

tt*A^LV©rttR©^-1'5> 
2HftC£& e SH I P(ttir£ 
fc«©f«c!:SCORE(S;ft 
Lfc®H©?5)tfflMtflDCa 

ofeS^-ATf—A-,, 



SHIP ^^^^^3 


^L»^2^H SCORE 


} 











OMWX t- K fcTli'* < *I»TS 




+ / SW*.^* 



OSfiK*- lOS-f bTtT'-AJf- 






Q 



■flpfft#<W&?£»l&|: 



r $$7^ 



S3 CS32/2+ RAM8K 
by *F*9i» ►U7.hii70^-y 



E^^^^3 










LWtb, ^©¥© 



HB©±©53*1W*1HI 




ofeS-if-Atf-A-. 



sr-* mtuid&x&'Pzy 

U^U#±©lBCfT<£, $ 

fjWDXtf-Nttiil^ ;§© 
flHi£*A,dfA,8K So r l\< ft 
r\ 55fc^ru^5/]\ us 



mwuy 



mmz^mtititzM 




Qffi^'J 7"f % £ *S*<«}L£ 1- > 1 



0*IS 



45 



r 



TWIN BALL— 






a 



o22s 



CS3ES32/2+ RAM32K 

by Bmmu ► U X h Ii77^-y 



s 



lb 



z±> 




Q r RE A D Y/(U7*-f)ji:> v-t— ■>, 



I noit->RANr 



FIVTTflP 



B51lHo B/1t-Jb^iij®±T© 



/c§<tiS7tt-jbA' ; iin5 r Tw i 

N j & £CZH -X > S fc f- IV> £ < 
dSlC/3OA N ofc0 ur v> V 

r 



&5 > K =fe £ < ItS BH U e 




QU:?->+-H **<?: 

* -f h iHJBT U *->*- fci* 

5) ::t r LOAD->GAM 

□ - KIT 1 7-7> KYiltig^So 
l/cjEDITORj (if-f?) 

ESC+-T, 1 *t7.i^W*J 

?bC> TAB+-*JfTfct>"l- 
!iffi:£TC3t;S£:ftT^5*-f 5? 
?*<< 5< 6fc3KtU x^-x* 
-%f?*fc*0>i:#«6$ii;**l"CUS 



OiHftilf, tf-JWr#fcS(4r-litaA' 



'J?->*-T";P!'-fo fc-VC*** 
5? 9 ^MteTB < c t ttf#4l.\ 

afcW 7 >*ftiyifteofc'9, F4 

*- £ff lT r LOCATE MO 
DE(P-7--h- ; E-K)jUt5o * 

j£4TAB*-Ti936o WPfs TA 
B*-?rtft- tU^-VJKTJJKA"' 

- Hfc&frSBSK »^£EP, HOT* 
EP, J*feOT£EP, fil*, Si<7*£ 
Hl=R£LTW»< (m^EP4~f<7) 

S^ttTOT* + 9 * * <7>8¥lS4#Bs ) c 



OfSltS r FANj<7)l;'CS-' 

ifT7'a'y?6S8-a-<ct\, *. 






O r TW i Nji:#- 



lit— m— KC 



>K<DftD75 




^)cL/-;b.F2*-«rfltt r S 
AVEjfcfcU, r F I LE?jtM 

(fa«wc> r . ed i jtmtm. 



F3+-(J r L0ADj„ --TP 
10*-(SH I FT + F5) 





Of^WA R P C7 — 
7>TJRtf#ft*tf— 




SMfcrowA r pTJHfcf 




OK&OTWA R PT1R 








=f<-j us**"??-? 



O r L0 C A T E M 
D E jT7*7 1-% 
t7 H-StSCfilffl 



Ofj'j.L</^7 K(F 
A N)5"b-y hT5£ 







46 



a 


wiuvoomm 


BF 1 


*<i insist tec 


IMP 


9#— A/tfafcSttf 
K, 7'n-y ?&,$*-& 


BE 


#C 20* 


WRFP 




BE 


#£. 20.£ 


WRRP 


ow*-^k aw— * 


BB 


H§lili*TE»J 


UMRRP 


WDsft—MW-n—'f 


BB 




TUON 









CRACKS **-** 



r^i E232/2+ 
J by &JJWS 



RAM8K 



!%(D±ZZ)^lxXCD£z>\zm, 
-Atdo 

tzz?nv<7(D±%:mc\zii! l mi> 




Q»/?<7)-LV*"'<-3Tl.»< 



±83£>K£IS 




Z7 

y 

K 
3 


1 ^V**" 3 ^^ 





_, r'*inl*jlJl 




^ ~*« 




y\ mm. 




K IT 


■ * J i 


8! JJ 


^B 









© 



J 


1 


" j 


r^-l;-] 




^-y 


\k 






""■■■** j 




\ Zs\ 



urfeff©£G^b!3:&r'fcO 



OSt7)±A-yPv^T«ioTLH.\ £' 



47 



Z ZV *>MWlZtetl&MmS L G 

mm<Dm<D&i\ 




I2/2+ VRAMB4K 
by MO- ►U^Stt73 / ^— y 




£ti_ t i)S>i.t I ST-V"'— .£.*?— I- 

37511 iifcfflJSiSUtottSL 
&£?iJ£*iJfflbfcfc©£:tf)? 

7*-< l > S UfcTf'J v^JU«;£ 

l«»tt*6ftJE© : 7>U'Vy2 



><-a-H®ffll f r GAM 
E STARTj£S<3^«U 
tflil/SSo 

©Kg©E^ STic^b-r-^ 

5o Hffitif'F^©iefaB^<fi5 




U'CB7?[Sl©55© 1 o^fg^ 

uraitj©«« fc*fu *e© 

n get, stHDmrnvrnvcts 

-^=!r-(*fcBKU*f-A}* 

ir>j©nV>KSiRCAS(^ 

garr-S73fqi£#-yji/*— t 

75lqlB^itlffl«ntfc^U<6 



Efp©^'x-vca§o lifn 
m : titmtzztizuz> 

5j^SK-TSt^©lS©}i^ 

®^b-ri 7 -©iiSca§o 
^'^b^tf^a-rs^rz© 

m?£ r v : £miz-£> : §>i£^o 
x-jtz-iJiTihzmjt&o 



I » 7T U ^ t ib 



£ ft 5 



> - i-ilffit"2#C7) r E D I 

j< ; tiJ<7)4A v lcAo-C^£IE«6£#'' 
MttftTWO'C; **vCJ:tttl 

•MV mhfi ■ mtttt^'y^Xo 

• AT !«»*<, SflA-'SUi^ 

•df rae* : ma^+Lt 

t'h RPGta >; 5 r HP(t-y h^ 

•rg mmxt ■ mt&^-y* 

•WV j£;£2j(ift4>*) : 5S3* 




Gc;T1i&7>£ii!s£A*TS„ T)17t^--j 






- 2 (T^m-hmmWit'-ht'i 



•BS *-«-f-f>l- : if 

-c 7 h Btic^fgg/ <7 > - 9 izm l J 

(K«&<7)SSSU: J: -3 T #' < 5 > - 9 
O5*H!0 < gft*& b ft*C US ) t B s 
<7)ii*-*60iz/j:5o it-., 8**(M 

■C, ##SSESI( R G ) Sr 1 S(H»t«Ot 

BS<il±5d&Wo (i^OTtt^lf, 1 



fe mmtz t h jLi-ak^amem ? 

o < bfflEW*OTiSt^5SI*a < * N b 

tt 4-yU- fc 4 b t£^0)tzo 

i**>lfA.* N A.L'A4<7>fc<7X -^ti 
ttwv, ojij, agftft, fc+iMc 

fcfc\ wv/-flt*)lfTfcoSb4 

mwtztiWitiiiV 9->* 

-fcfltfS A V ELJtfr? 

(y/n) ijfcBBut < *anr 1 -fe-5 f 



i) 9->*f~wmt i»wi- r . l 

£ fc, J< - a -Hffit' 3#C0 r L 

ADj*iiiO\ yu'f-^-S^d*' 

2 3T>-a-l-fc^S)^A*t 
it, ^(7)t#lC-by i-ZtlT^tz 

x-f x^cAo-cv-^t-'-^ot— K 

^©f'-?(«H»4*teLt7 r U'r 
+■— c73liy*i: LT, D-KLT<n 
■bmtio 



48 




^ 



m o) m m * 



i\ z i\ a tts 



S?©iS£tf4lU±©££H\ W 
V1i50*;S©OBffl^itttf 1 

£tMEXWJ«0TfiBC, *©«i 

CIffl'IS$g©fl75fcBg/co 
• M=&ifl2)©9l9 DC&o 

fct>®$iJW»B*S7 
•A =«»* 

■ D=i6«». ocastaa 

•R=#NBBI 



• *=Sa©7?[ql(lui*B^f D 1) 
©'v^XCfS^x.H'^im^ 
tfpnWtf«n©r\ iBBcDd 



I SANE 


START 


3 


Will 


l^T>1/T<ft" 


3i> 


m<t« 


1 


->••■■ 


-■ 


















nBSt'ioTl>5. : . 7V-T--V- I W«il|EIJ*fc-S<«Tirt-3TV.<S -f-f-i 



/ r fe-3 l[UjtUT-tU7Am*A-'bMC^T<4IJ£' 



49 



r 






FUNNY^BOY— 



I?— 7l\ — f 



■17s 



ES32/2+VRAM64K 

by LEMON SONG SOFT ► U X SBBS^-y 




Q-(0) 



■a *— tzcmmz 



1 7^^fcOPft 

■ y^L., sfcB7My>yA' ; 3 
• mimmti'3-Dao^ i5 

• 7tf3-o-&35c!: s 15$£ti 
Tit— tT.-y-AC&St, 3 



issfl 


1 


S 


3 


4 


5 


6 




1 

172 


1 

147 


1 
135 


1 
125 


1 
116 


1 
111 


7;u-y 

(DM<P 


1 

714 


1 
714 


1 

667 


1 
588 


1 

500 


1 
3B5 



J3;fcBA'7-££30-&3x. 
5il5K©?AUtBUc ZtlftB 
[U^StH^-Alc&So 

-tK-«£3[5]/3n7i,£!§o r 
d;Uo=K>n£itr340#S£ 

725^- ATI Et/JiOo<o 
DH^l^-ASOSfo 

tilfc/777 

u 



*5JL^ ts,i 







8HH*-3TV.»*a 



L f « « FUNNV^BOV 4 4 4 









WtJca-fVTFfcbfc 

fcfcttFFCfc* 



K5fcE5!IH 



2^ 


y 


5? 


w 




J 


o 




♦ 


ffirj 








% 


o 


M 




<* 




7 




o 




^^ 


jg%i> 




« 


& 




& 

♦ 


M 


&5\b 






ft 


» 


&\b 


*> 


# 


^■r 




«> 


» 




♦ 



50 



7W^rwra~iiiBcuH<7*7/ i-fe^gnttczigittgaBt^atv/ 



«hh&? nv—zm/ 



^-frtJI/Cf^fcOlJS// 





> t m < « O ^ 9" / •IS^PTD^IEM^ 



saw 








IS)U^3'BE«)ia:U\iiC-S^3|Blv5ni,10IB-" 



WE*raftfcW7W-r» 



Sf>i£1S:£>i,)flStrrv7T3S<7JA ! :*:£'j.1li2l, 

^>fflmii2-3jjflti*ntfOKT'r, t*:h 



Mr 



^shfcH«j#jaH 



1^H5.DD0¥C/ 

itCOTJLfc. £Wmi*»;*£-KI$750 : »:"CU;«\ 51 
ro».»tf)J;-5lc»L<SSi;Ti.'i'r = 




«t«>i»<75fcrt. RiBSfMfcHt 
I U;„ £CW.aK4gl>S»(fiT I 

-2»fl.*f|!ll*l«t^f-K* i i:-rta<'j;u.ib-r* > 30-9- 

Cbl'T-±gBWt*)TLiimTT . fc*(:tlzaW8Efel«>A- 

iz«nti>tT. *n*'«*fc7ai*<7«:'jc, -p^imaa 

l«SftAOT«mmHlW7'-f7 i ATT*5. 



ag*Mo3»atf*lXfcofc// 
'.'4K-v»5».'-\Kfj;ii'.f[! , .]r«'j5oo-f-/.-'o/jm* , .»iii« 
HHWJ.OOW : -3.000*l3Srt. *<:!>. ^Oii'iSffc** 
-.;_ 1 ;»fia;4ro!a*/ii:So»-'<*H*<J:<*-3/i^2i*'f 
**--5L-T*fc,i3:»«* ; *L<,BX.SJ:-)l-<co/io — ti: SffiJAflWa- 





a^^j^t-A^-jb 



TI69 



SMeBASI2-l-l 

i£03 (3232) 8232W Hit) 





tt£90/3^<frfcU*:2)\ *©JEttl;k SHUSH 
-<Z) A*XP 5/* >*-fc"o fc ^5o 



>*©itU«tto*D£ 

^'5A^jfKtsnrLM>o 



OS©?, /3N§crSffiUcfc5o 




*x^tWxO) r SjU: r Ij#&U 



a-TUSo fr9040 x 90S0 X 9070, 
9090<Z>3E» S <n * t C r / j*M* 

UD* •*#»*/ 14*) 



@ 






-flCttfctfA^So 3E#<7)X 

97J*ay<—. >x-m£itzfr\ $ 

8 S (7) * £ K * -3 fc r / j<73 -fr I » 

x\ wimT—9<7MSom<tt 

ti. i 1 7-9fr\^i)HfMZt£r> 

x<z<r>tzo 3E-tA*btt*A.& 

«JELT»S<7)/fofc„ 



m 



CAR RACE »*•■* 



r ;m?l ff^n^-5Aft©»l?j 

ffl r CAR RACEjffo 

ffSB 1 ff^n^ATiaa&l; 
*©S<A/S©E#. ^f>3&£<, 

*e«^»*wi7ntt. osteitis 

©fefflfc'o 

TOD'Jxi-Sfjsc/uzrRUN-r 

A-VJI/*-©&6«teor±# 
6<5fffi*«d;(7r, HhUhmh 

tt* o r < -Sftfi*©^ fcf- K tf, 




7*-A7r-A-cs§c. 



1 SCREEN2.1 :SPRITE$(0)=" 


<ZZ$$aa<" 


:LINE(4 


.0)-(78.258) .H,BF:F0RT = 


30TO99:Z= 


RND(1 )* 


64:FORI=1TO170STEPT/4:S= 


STICK(0) : 


X=X-(S= 


7)»(X>0)*2+(S=3)*(X<64)*2:PUTSPRITE1 . (X. 


160) . .0:PUTSPRITE0> (Z.I) 


. 1 : IFABS(X-Z)+A8 


S< 160-1 K14THENP0KE -869 


1 :SCREEN0 


:PRINTT 


-30ELSENEXTI .T 











?&©fl\ HStSI5?l3:to7J N 6& 

r£i)rgU)©7co 




Xtf-K3b^^^S(^-7KR) 



77>-?'A© r l C E 
MANj4-A*L$L/c 
L^LXf- KA"1$T#'T 5 *tf 
*> l J Tto ' < y *-<7>X f- K 4- 
ii<r5^;4«-»A.-C<A:?L^ 

(S£-*g*7T//15*) 



® 



CE MANjttJSt^- 



-#Rjt»^-C*c/i„^-*R 

•©Kg*- Km^-cu/io*:*: 

l£b, .iOTOTATttt-CfciS 
'<ftt»*f%7o ?-*R©S*SU& 
BJWtfMO^-iXTH^U: /ITS- 
US*:, **©*g*A*iSfc# 
lcESC*-©fcfcU lc*>S 



IS 



Iff^P^^A »»-S5«t 



s»<^ffl8or<n7bftg». 

'J7.K©BL;®lcSS r a= 1 35j 
©ffiCd^r. SCREEN7©Bi 

< 6©fc'„ 

TRL + ST0Pc?«Sft5„ 

KL/TSfct5o 

•5-5L\^.«, V#l,U77>y9k 
C£Slt?a?5A;tf<J:<JS«Sn 

/"Cb'y K©W0SxCd;S7 , ->< 




-5/ 3 >«±i UttfflffJS'ot 
5«t5a^D^^AA < ai.\©A\ i 



1 Q=135 :COLOR.0.0:SCREEN7:PSET(255. 196) : 
F0RV=1T08:C0L0R=(V.V-1 .7 . 7) :NEXT: V=1 : R=9 
0:FORK=0TOQ*180STEPQ:A=3. 1 41592653*/ 1 80* 
K:S=SIN(A)*R*2+255:C=COS(A)*R+106:LINE-( 
S.C) .V:R=R-.5:SOUND8. 1 2 : S0UND8 . : V=V+1 :I 
FV=9THENV=1 : NEXTELSENEXT : FORT=0TO1STEP0 : 
NEXT 



52 




x-f7^ictz-^r£5Sii? 






f£l 7P 7 f-i 

L£2J w-7-Ti 



'-■ 7"'-fX7H& 

<7)3&li, *S-t'112fcj*3:-3T^ 
SOT/io IA*U*< b112St-li 

v 7 -f y 7 4 f JW- ? *£>#•<- x 
7 7>-fn<U:A^JflEoT^Sfc> 
112CV.'< UCt-(^7* v Vo 



SllJ7*-7.y hLfefc#(=3fc 
JlJ, 2DD7^-7 7 h4b#) 
737J'<'f Kflg*A**So -S*' 

4^7 %tf -r 7.t%mt>*s. 1 ) 4 
< 4- s c t fc * s<bts±56 I x i o 

tA,tr%y.witm e t~hx\ 7 

-*RCttJS<7)MS X-DO S 2 
l-ttfiMHbx-f ^7 h 'J 45 fc<7) 
A-'*^ T4Z9&m.<ffitfBW 
<»1WX\ 112«rSxS7y-f;L- 

afrttS-fcfcT£*a>fc' 




*SrCB9800nG>*-7KR 



r *4*A,,tti:*>il"t\ UO 
ttA 1 S T*-'+*ST69800RT 
%-jX^ft/ JEjtl*-3"C7ftL 
< fc4A^£ 4i?A^^7 t, 
k»J» fcAA"'4v.^bt'to <f 
UV* «IU/ *)<LJ:-/ 

GbiSii-iSSAS 13*) 
L'o(ilSAS:: r 4\IVISX?-tfR 



»/ <-f- V - -y 7 frh I fr&X £ tf 

a4».^t-r* N ? j (s« • itww 
s/i2a)ti^/-sra4irfes 
i>tvs„ ?-*Rtt«iui*£\ 

A1 STtt*.J:oi:Bt#*t¥* f 
Sb4l^4*o *R*4f>7^'< 
-f hfcl*7¥fc*S<7)7i'A"* o 

LA*UBT*fc'*7, *<7>+#SU: 
A1 ST**-3fc* , 7'7-tto 




3JW r fc:3-* 



3flfffl r t3-tjffl»ltt 

fct'7£fcL4i\, *<7>7*., & 
«UU*i»o t-fc, SifcifcTftli'* 
ftittfo ?**ifeTC7>ig*PU 

(Slli-?3fa- '13*) 



J 

t\."0~tX\ *-3*<ttlT 
A5t, tiftifXt-itzo 

t LAVC* S'^'A-lg- 5A>\ 
- ft 14 r & *> I- fe 3*A*'*T T 5 (7) 
tzjt^l-tlZlXti-Oo 

;:7 7&ig-;*tt7ftU>**o 



95 IFABS(SGN(ZZ)*(20-TX)-(Y-TY)K9THENPU 
TSPRITE2. (TX.TY).8.3:SOUND13.0:TX=-1 :SC= 
SC+5 





mo)MH7)i-*y\zmw/ 



&3.0)'^7Z\7>\>-1- 
>tmft<7)t>r>tz r H = 
H-(H<S)*(S-H)j(4X$ 

FSoii-jA-'ii^-m? 

(*Q«tU-?SI«§*ffi£ ?*) 



@ 



fcWiU BAS 1 cw- 

H = H-(H<S)*(S-H) 
fcu-5tt-K*J:'Jt.. 
I FH<STHENH=S 
<7>15 7A*'*S^U &UU 151*1- 



fcVH' h»t>i»4v.>U I F£ 

wis 7 alter* *>a» y ft < x 

£u fc JB -5 OTTt A"* t W*3ftftti\ 

ttsvttatmrho fcaru ii 
ffifc < U 1 fr7*n T^A-ctt, '* 
4X:i7tt**l FXtlT7J:'J 
fc, 7 7>^'At'IS7VL7it^iS 
S*flEofcl57 A-'&Ufc £A-"*S„ 
I FX^'ir^-A^JaSA^A^ft 
X I S 7 A-\ ltf£ft*4 bftBIA* 
*A»ft4(.'Ttto «STtt4v.^ 

a-; mmtttzttozatio 




^7-f^0R«:tn«^-ytt? 



BSAVE-C-fe-^Lfc 
„ 777-c^«:BL0A 

•^B^-XSCREEN 



A) 



±Ji-C'7P'yk:'-x-f^ 

•y^lfA^J■fe-7'^-tl^^:^ t 
Ct-x-f 7.7^*A^'4 < 4oT L 
$7<7)T>i3ftLJ:7o *HCA5 



A"\ SCREEN5lcak^z^'7 

7-fy?^BSAVE«iTrS 
$L/;fc<7)^ BLOADX-SEA 

7t- t 7'*<—>lzBlA-~ itiZO) 
tic tztail, 777-47'<-i> 
* v '0ff)tJ>iffi4-BSAVEU 
-ft^T'i'x-f 7<—>i) < 1 0>fc 
|iUS!Az«)tf, K->;i(7)iii® 
11^77 -f-yi'jWKftSo a*, 
fc OTliH L Tf -3 T * 5 <7)A"'l »*. 
(f^^.^v.»OTfc'**o *>4Al-. CO 
p Y^^-roii 7 A•''A^^/z^-t:1i?lJ 




3B¥G0/G0/frfc3gj(W5&!? 



3^#CJii£^ft/z r G0/ 

GO/ fcfc*Sj-C***»«r 

%I.L$L/zo 1**>HX*A\£C 

i>(t, iSC^*>tt)5E44v.s 

(3?«-l*9ffl».'l4*) 

*^/;^)7A^? t, ¥114^5 
T*ot*fct;^ *8fc*ofco 

-r-AA-'ttL'Sotx tCCf 



St, m~%^X^f-UH-'<- 
ftT L t 7 (7)/fo 

^ ( 1 4*), lb-amass &»« < a, 

(12*)OT2AA^bfcfc4L*^^ 

ifVHkztitz-if, ;gEP(73^*,(ix 




^zj 7 >^Aj ^(Dsaiiii* / %mwkommmi^-v 
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vziKxy-i Mz&Emofo 

■5t,H5c #%«^f ^i^H 
^^X£&£'© r ;£fJj£:I:?L 
mt&^WiUzm^^zt 

IS, B£/ui:A9-©3D§PrM 
got, (Mtf/hEODClS, A 

A^^Btie*-e6n'S©tfu^ 

L/ d: o £ 10 -5 frilis L M> r l\fc 

3 
3©lBS©S*75ft(3;, SO 



z\ ^i/ymomftttM&w 

tz#&Jlsy*5>jtfr r B I 

6t)lzlSL;«)5<t:*l3BJglj-rffi 
n^LMi^CD r 7tz >^' U Sfgj 

££x.r$Mguo^i:rro5© 

V l> VlgffiBWUS AFslCDffi 
-&©SH*3^,^cUA u V^ 

ym(r>%$s-£i£mw&fo%ffi 
s©fco ^ur, ^ns, 3i 
[tzmmmsttfztp-z 
£& l \ MbpiisL s ^ipifiv 

3 

Romzmm^ntcAihtim 
■?t;ym+)-y)iy-3 L ynzfc2> 

B I OS CIS, «BgBiJlC r Anj 



t 



■IHl B 1 OSO) r LD 1 


RVMj ASSETS L'i'^rt^OTtSs 

■■!S2ST4T'-?<7)ft£ (/<-f US) 
••ISgTfe (V R A M<7)T KUX) (75l*|te»* 


| JBT j | 


. C : 1 

2 18 •" 


1 ' D 1 

; 3 


1 S 1 

9:8 '- 


E ' i 


1—0—1 







Zi^ Ma 0*1/3 1:L»" Vy*37 

Ok 

A=USR<0> 

Ok 



j JA=USR < > J^OIJIY^+JCLS JZ jl«? U 3 "J 



O'JT-S I fcHfr*. CLS5-HfiLT r ziO l j3^ j£A*)U t>? — S r A = USR 



l\§ zroivsucis-E-n-e 
s©7Kb7,tffiJ0^r6nr 

gij9^-H&£©B i os=i 

xKJLD I RVMj(SH00 

sotmtn&B i osiv 

h 'J B r R AM©S33I$fr B 
VRAM©35-5H$C?-^£ 
l^-r§j«Bgtf^O,RAM© 
dr^bVRAMOD^Srlq] 

A-f hissi-§©fr£cpuft 

©Lyy^^(8tf«vSSfclil6 

tfy hme©i2lia3Sn)rJiS 
m&&mzftt s nzi\z, tn 

F)U^fc\ztfAiZl^Zi,fr 

£t>t£l\o 

BAS I CCISCPU©by 

U®r\. fcd:x.K, Z(DLD I 



RVM£f£nfcl>£*t:tt, S 

Z(DB I OS%W&yu?z>A 

3 

l rpiftf S"7^vi§fco 'Jx 
usRP^sturs»*nfc^ 

59-^i'J7(4DyWS$S) 
yilC-5-o < Q-E-©i:3:!JS&Ur 
ttt, A^ttfc*-^ 1 ^> 1 

■otmiszi^iizzwu 
-d^d, usRzn&tcmztw] 

l]Sx.A N 6ilSu^r'©*-A^l 

3©LD I RVM£U5B I 
n§„ KM*. 3©B I OS^ 

T-^tB I os©n«ca^r 



IH2 A = USR CO) lz£^Tf£&£tLZ7-9 



iKC391- 




V R A M ffiffl 



RAM 
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IU7.H *-=l-KyV^7P0F*9§^HS^P^^A 



10 CLEAR 20 
0:WIDTH 40: 
20 FOR 1=0 
30 FOR J=0 
H"+MID$(A$> 
40 READ A$: 
AL("&H"+MID 
50 DEFUSR=& 
100 DATA 00 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



110 
120 
130 
140 
150 
160 



08 
00 
00 
00 



0,&HD000:COLOR 1 5 , 1 > 1 : SCREEN 

DEFINT A-Z:KEYON 

TO 5:READ A$ > A 

TO 7:VP0KE &H800+A*8+J,VAL("& 

J*2 + 1 i2) ) :NEXT:NEXT 

FOR 1=0 TO 12:P0KE &HD000+I.V 

$(A$» 2*1+1 »2) ) :NEXT 

HD000:A=USR(0) 

2078F878200000.8 

08080848F84000.13 

2010F810200000.28 

2040F840200000i29 

2070A820200000>30 

2020A870200000»31 



00! 

21 F0FB11 98030 1 2800CD5C00C9 



U*M<DfPK 



•ffiou. wmmm. keyon 
<fc». rnnsa, sob, mm-a 

?->*-, *-Vib*-©=l- 

*©^57< y?*t>^2£©A 
?-V*£KUT, SEP&£CU 

rent,, *s±©HS^tf«c© 

r. 'nEO, 30, fjl00--l50BMt 
1/ r=E,Rl(-?-ffl*nB=l > K □- 

1»^i7^IC»S)o»R4DB.fflB0 
®?^>If-5 (I6««) 5» 

£/u?,BHD000iy»i;: i a 
-r s?o«ee:fco •ff50«, ; e 

©75»IS?USRHiKlc;SBU 
rBWttifiiSo «», USR 
ra^WUWrfctfCiiBfflST 



1 +-zi-Ky\.'«^^p©F*g§^VRAMlZ|E^T§ (Sa^TS) V2/>K©«fi£«i:Si}#* 



i 



7KbX 


■vzsymnmmm. e^i/wm 


*<&m85 


BHD000 
+ 1 
+ 2 


21 
F0 
FB 


p ijrpprt 


• 2 1 # , H {s*JX5>£ L L>yxS> (HL Ui>2. 

fco £©=]— SZNSUSSYJ/VgB^U,, 

• FBF0B, ^-TK-HfflUMStf^CM 

3©eA-r s^BSftxntfeas^RAM© 




+ 3 
+ 4 
+ 5 


11 
98 
03 


oi|rt of 1R 


5'tU5)C^ttor3S«i^1z-7K"r53-K„ 

•0398B. SCREEN0C*>ttS, ST 
ISC*;t££;-rSVRAM(A5'->Sffl>x-:W 




+ 6 
+ 7 
+ 8 


01 
28 
00 




•□ 1 B.BUv7.5'i:CUy7.$'(BCL/y^ 
5»<!:n5)lc*<!:«)r»«S-tz^ STSn-Ko 
ST. 11, 01£3MS«fcfe©=]-So 
•002812. fcA,C10iiMffll6iii«8to ' 
3r«*-3-KA'>77ffl*SS(40A-<S)o 




+ 9 
+A 
+ B 
+C 


CD 
5C 
00 


•— - tyjthZJ^ h^^l-TKU^^^-i; 


^3rBIOS r LDIRVMj^D?'3? 

•CDS. StS^SL/XW/Sp-JI,)^,, 
CfflCDtU^ZI-^rWtfi:. GOSUBt 

asu^c. w/uero^©H*cti-or< 

•005CB, LD 1 RVM©i>S'J7KU 


&H|JW!jU 


Q p • BASicicfcfcT* 


•"T'Kr^SSx.rBAS 1 CCtifO, USR 
(0)©KI»©«£ff5ltWCEl/r»fc3o 
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,/N 



5-rt 





B6IU 



:?*J:ttfcDft/ufr-rSo #lsllJ*©ti:*l»l;:ttnSo 



7S7=7<(h*mmV2 



nr»<*^j©(Dt@~©^iii 
ttrfJSvlGd:, D-tocD^P 

rus©r\ ^p^'^a^^s 

^@©liffilS, 7.75KS© 

x:?5> -Throne o-t.it 
&$Q!gtffr£>£or<5 : &0fc* o 

£35, £9 35*1% ±®£& 

.iroiuhcii, i\<ofr© 

m^tfAoriVg>#\ zzrs 
©M)tt r SPR ITE$j£:l> 



Ztl&RUNj&TBZhjT- 
7£5i±?>£, 1JSBSCREE 
NT CfcO, 7.^^-f KA^- 

ttfcf* -fibS/ay 2*91.1 C6T 

©¥E)frto,5<*oc!:PfiUr 
*fc=b©/c 

O^C, r ^-7K-KC/3Ntir 
&cfc?>©j£JT£;:A,rilf7l, 
r, ^©¥H©cfc5C7KM^g 

6&u©r\ s^/ut^&n 

izZ5Z-Z(D7m. Iftfrb 

W\Z' r li)[<-5f>hj J tZW&tttt 
ZfcZOo 



SOl Sul Q? 




lu, 



i \ *— 7K— Klz<3»*lT»d:o® «3" 



10 SCREEN 1 .1 :WIDTH32:C0L0R15.4.7:CLS:F0R 

J=0TO1 :B$="":READA$:FORI=0TO7:B$=B$+CHR$ 

(VAL("&H"+MID$(A$> 1*2+1 . 2) )) :NEXT : SPRITE 

$( J)=B$:NEXT 

20 DATA 7050F02E3966797E 

30 DATA 0E0A0F649C669E7E 



\ \ *-7K-Kic^nr» «fc-5©«y 



PUTSPRITE 0.(50,100) .15. 0:PUTSPRITE 1.(1 
50. 100). 15.1 



: , 1 > , 1 : 



: P U T S P R 



fcfr<i„ ^■T'^-T h'*^— >DtiSl4]3. '<*-> I IfceftJ'ft^Hi'pA./:: 
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**^!?9TWEt:fE3 



Sfcb, Xtt.Jill'-B'PhjCDtztb 

9-y<D&m(Disfrtzzmz-tz 
h\ ^n£te^r;te£ft£>©£o 

ZZZ't,, *Vz?f$>K5>- 

yttA-otm^zfcoZt 

l:W;„ 

so r +-/it-Kc^nr^ 
rsuu 

®j£fr5^7c&£, ^© r + 
-#— KG&tir»«fc3®j4 

RTS3tJi, e^tfcMSX© 
&fricg&£ft5©7c 

Sir, r L I STj£:IJ53/u 



rsfc>&<r=fci^v, 

frfcUtf;*:Sfcd:l^7c©G\ 

L^^ru*-3fc* x t>/co 
gcb&u©?,^© 1 ^-^- 

/ur^&RUNUJ:5o 
S@tffi©¥K©ct;5C&o 

fcbOkfc. 
<Dmmti % %l(DmZ\ t(Dfcl\tz 

ztir, 2ui/5*^©ji'3?t5 
tz-sr, wm^tz^mxi 

tZ>££(DMm*LlB7r;tZ>75i& 
fft,A-ot.WO^Z<^o 
PU<IST©*=lSCSS© 



SCREEN! <0WmO2-D(0Wmk 



SCREEN 1 OilSCU:, 2 
7 ? ? &**t 5 fc # 0>x+x h 



7-*7,\-mktt.. prints: 
t ziznmiztiix < i h<»x\ 

fc^TOttLOCATEfcl*^ 
3i6&iX&mb*to 



txy^-i \^£*v^<7$(Dmmm 



I 2 




*-7K-KC^ti"C»d:5ii)*r 



40 FORI=0TO1 :READA$.B$.C:AD=ASC(A$)*8:F0 

RJ = 0TO7:VPOKE ASC ( AS )*8 + J - VAL ( "&H" +MID$ ( 

B$.J*2+1 .2) ) :NEXT:VPOKE&H2000+ASC(A$)¥8> 

C:NEXT 

5e DATA a.D669B6FFFFFFFFFF.&H68 

60 DATA h.DEBD639C73BCC13E.&H4F 



*-7K-KC^tir»<*:5^«y 



70 KEYOFF:LOCATE0.16:FORI=0TO2:PRINT"aaa 
"; STRINGS ( 26. "h") ;"aaa"; :NEXT 










xy^'f l-flWtt> 7,-f=7-\ h 
%:S*t 5 £ £ C»ft fc <*>-C\ 
X -f=7 -f h W^Tttffiffl L ft <- v & 
Wkt£<ntz» ^^7-fHi-Wi 
(iPUTSPR I TEifotS 

^yv-f !•&»*: ft So 



H®^' 

*»¥■ 







H 




31 



23 







g \ 2 3 4 5 6 7- 




- ! 
8" 

1 

z 

3 
4 

5 
6 



































































































































































•1U3 



(31.21) 



(31.23) 



190 



#1 2 



•255 



(*, tztziismixizotf. 
c-zmi-itz < *>* ( 9ffis*ft<7) 

-Cii&Lfc^ir-^fc'o 

l-JMk x*XHS#»8K'y h 
(1*!£)*fti:!t*.-t^rt.ur^<.\> 

£©0I3:SCREEN 1 ©BE© 
ao©IS«»£*Ufcfc©£:#, x 
+7.M19CMUrB, WIDTH 

3 a©^- s rcDSSflicfto r u§„ 

■x«S6f 

nSt^©fuB©3ir. BK'7K 
SIR O^O 1 XMVu? 1 0©Ji 
ffid:&orU3,, ftf^6X?*7>fc 

*fc, f*7SISIJS«tfWI 
DTH3E©K£C&oru3©r. 
W I DTH©1itfSfttltf, LOC 
ATETSS'TSeBt.^nSo Ac 
CU VRAMr©7KU3.£ltg 

T5£si3*fc©K«^itsu& 

■X?tMhffif 

7.7^ SSSBXffiSli frb 
>&*SA\ YMItt- 1 fr&JSSo 

ru§o ?(Dt»tT*^si«fr 

YffiS^- 1 f Si»HtfS5fflfo 
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T.'WKHMM*^ 



n 3: s r-?75 ^ a, r fc 6 o fc 
&;ftr*<£5©j£H£3/vr 

BIA\ 
:7p^Ali5§fi££fcofc©"^ 

^ACcfcor-&5*€)cfc5Ctt 

3££%x.d:-5 

^^^©^iMiirB, 

* JUS ^> A.ffl^UTtroi" <t c 
©o£lCitttffcAW£:ofcfc>|q] 

7.7^ s#BxB©eieR^ 
c&^rn3©r\ m^&ij-n 



S(°]$ffliIS£ZE[q]S©i§£r 

^teor <£>©£„ 

STroiiSEr^cfc^o c© 

©i*C dTd©*!*^^ 
£©£$©=fc©/c 

*i;b£^/u£Sjjvrs©i;H£ 

orusx^-fhiitx, 

Y) CJffi|-§r*^ MStifr 
b^St, 3©ti^3lHIttY 
JHftfttC + E^nri^o 

jEititior<5©& 

3:fc, XJHf (S£Ir]£©£ 

'©!□», *jl/5^©x 

:7^Y h©*££tfl8iSUTU 
Z, S(ql*<t£|Sl*d:r, $11 
©*££tfit5©7-c 

PEEKna^r»cfc-5 

VRAM^iffiitl^i:, 3 
ClfflVRAMdrl^^Wtts » 

t©r\ iKbiie^iJurt 

c£<iIlgr$&Ut©/co 

rt. ffioru&< raise 
&6&n©r\ ^©nisrtt, 

SCREEN IfflVRAMCS 



<=^ 



^UR^, 




















^*-vK- 


-KE&ftt»cfc5<g>«3" 










80 


X=1 5 : 


Y = H:S = 0:AD = &H1800+(Y + 2)« 


32 




90 


PUTSPRITE 0> (X*8.Y*8-1) .10 


>S 






100 


IFS = 


0THENIFVPEEK(AD+X-1)= 


ASC( 


"a' 


)THE 


NS = 


1 :GOTO120ELSEX=X-1 








110 


IFS = 


1THENIFVPEEK(AD+X+2)= 


ASC( 


"a' 


)THE 


NS = 


0ELSEX=X+1 








120 


FORI 


=0TO100:NEXT:GOTO90 














I A 



S =#(*!£] #)<7>fc# S= 1 (*A#)0>t£ 



(X,Y) 
(X-1.Y+2) 



S- 



(X.Y)- 



(X+2.Y+2) 



+t7^(tl) 



*-^?(W£) 
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■&mw2.%~ 



EE3EE32/2+RAM16K BY SILVER SNAIL ► jfiTOtt40'*-2> 




Z©7n^Ari3\ -SB^i/VIS^ffifflUrUS-ro hi IZ<L<£)± 

EYl, CHR$(255)«»5U F 1 *-TJI5;i/u?<£SU., 

1 CLEAR200,&HD00 0:SCREEN1 .1 : WIDTH32 : COLO 
R15.5>5:KEYOFF:DEFINTA-2: A=&HD000 : FORI =0 
T038:POKEA+I>255-ASC(MID$("*°ttt;fcO)£ r )2*«t>2 
'('■9tt = , 9/} 2'fB9» = ft/M fS'2"fl6".I + 1 ) ) :NEXT:D 
EFUSR=A:FORI=0TO4:READS$:SPRITE$(I)=S$:N 
EXT :H=2:F0RJ=1T032:GOSUB8: NEXT :N=255 

2 S=STICK(0) : IFR=0THENX=X+ ( S=7ANDX >0 ) - ( S 
=3) :IFX=22THENX=21 : G0SUB8 : DATA ! >2<b*~7 

3 f = -(F = 0) :IFSTRIG(0)ANDR=0THENR=1 :L = Y 

4 L=L-R:IFSTRIG(0)=0ANDR=1ORL<0THENR=-1E 
LSEIFL=Y+3THENR=0:DATA! >2< ?4~4 - "T-r-r>)p " 

5 IFVPEEK(B+X+L*32)=-76*RTHENL=L-1 :Y = Y-1 
ELSEIFVPEEK(6208 + X + Y*32)O76THENY = Y+1 

6 C = 869:PUTSPRITE0. ( X*8-4 , Y*8- 1 ) . 1 . F : PUT 
SPRITE 1 . (X*8-2.L*8-3) .-(R< >0 ) *1 4 » 2 : = + S 
GN(X*8-N) :P = P + SGN(Y*8-I"I) :0=0+(ABS(0) >8)* 
SGN(O) :P=P+(ABS(P) >8)*SGN(P) : N=N + : M=M + P 

7 PUTSPRITE2, (N.M) ,11 , 3 : IFABS ( X*8-N )< 1 6A 
NDABS(Y*8-MK16THENPLAYS$:X = X-SGN(0)*(X> 
0ANDX<21 ) :O = -O:P = -P:R = 0:GOTO2ELSEIFY>28T 
HENPRINTE$"Y)-^a?"T-32:P0KE-C1 :RUNELSE2 

8 A=USR(0) :T=T+1 : N=N-8: IFTMOD5=0THENH=RN 
D(1 )*9+1 :H=H*2:DATABtt<~ZZ*7,V1502L32CD 

9 E$=CHR$(27) :L0CATE31 , H : PR I NT" L" : RETURN 



m%XDm\fc 



jn&zbam 



xy^-(^mm ®bu»c: 



x, y mm%comm 

L <ZOft£(DYmW 

N, M 7P-S©ffif 

O, P 7P-S^»ii# 

a usBmmwuthbm 

B, C S&#A3h>'JXS 

*sHffl 

E$ l^-^-^r>7 

ffl:CHR$(27)#A5 

f nmim^y^ww 

-ymowxm 

h mmimm 

i , j iv-ym 

R <zvOA'^©W^ 

S Xr-f'^AAffl 

T 7.H7 

S$ x-^^H^ffl 



7 x/ VtS-x-S' ■* 3 £>• U S 
RS8S:£8»77^--f SK£- 
>S»»ft8ffllJ®S^-tt7'^ 

(§)(§) »**,»» 

•7.x -f •v^A^»iS*5ti^K 
•77P-My^¥y£tf35ti 

gx.75^M$T»<£DtfSf& 
lifA^¥iJS(S l J^-) 

$?— >x'— S 7 (fj 1 ?i*uM 



vtzt 



XVTk. 



[S I LVER SNA I L]33nii«*?l,fco zro^-AffliAftffl^f 

juaansuv, ACDSios^oricffiu^A'or, 7v7>7>/ r 

3U5»Ufctf*3*3ff;Mgtf „ &£ICtt§ltt§*£n&UCMf. s 

akzta-mttomwv. £z?>-e T m%%Am<D&tz% r zuzh,j 




I 

0) j^ffsfrsiog/r 




•7 p- h^ait»§ts»7 p 

•7P-K*7fx»;S^?Lt7P 

%Wm/yn-v*®m%\n/-j 

P - S7? |q]JSg/ < * 1rtt 



• USRISMWcl^Ii^ 
7P-JU»7a7J§JlP»7P- 

^^•sasigx-^Cfj l r 

Sb*3*)»I7^--7^-7 



-?^>l§8?tft 



SHD000~SHD0£6 



& 






htMHbth^f-^tii., tUtZtmt^Xbh-^X. t*lXit3 ^^7t>?'ABEST5 / 56tt r G0! GO! fc>fc£S.i, fa/Ki:U/:8 
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MHi&w 



E532/2+VRAM64K BY HIDEYUKI 



cUF75li41^-^ 



1 DEFINTA-Z:COLOR0> 14.0:SCREEN5.0.RND(-T 

1 ME) :0PEN"GRP:"AS1 :W=105:PSET(W.W):PRINT 
#1 , "*tH5£u":SPRITE$(0) ="*"♦" :F0RI = 1T08:R 
EADX(I) .Yd) :NEXT:SOUND7,55:SOUND8.16:DA 
TA.-3>3.-3,3..3,3>.3>-3>3,-3..-3.-3 

2 L=L-(L<5) :SETPAGE.1 :FORI=0TO41 :A=I*6:F 
ORJ=0TO2:LINE(A+J.0)-(A+5-J>158) .VALC'&H 
"+MID$("689C23ABF457"> ( IM0D4) »3 + J + 1 »1))> 
B:NEXT:FORJ = 0TO1 : G = RND ( 1 ) *54 : LINE ( A , G ) - ( 
A+5.G+W) , 0.BF: NEXT J.I :SETPAGE.0:X = 127 

3 FORI=0TO26:LINE(122-I.W-I)-(133+I.W+I) 
.0.B:R = 0:P = 1 : 6 = 4 : Y = W : NEXT : S0UND6 . 31 

4 C0PY(R.53-P)-(R + 63.W-P) . 1 TO (96, 79) :COP 
Y(R,53+P)-(R + 63.W + P) . 1 TO ( 96 . 79 ) , . TPSET : R 
=R+1 :P=P+Q:IFR=189THENFORI=0TO15:COLORI > 
0:PSET(W.112-I) . 0. TPSET: PR INT#1 ."CLEAR!" 
:NEXT:GOT02ELSEIFP=33+L*4THENSOUND12>16: 
SOUND13,9:Q=-QELSEIFP=1THENQ=-Q 

5 C=C+1 :S=STICK(0)+STICK(1) :X=X+X(S) :Y=Y 
+ Y(S) :PUTSPRITE0. ( X . Y ) . 1 5 : I FPOINT ( X + 1 . Y + 
2)=0THEN4ELSESOUND12>255:SOUND13.9:FORI= 
1T014: K=I¥2:C0L0R=(I.K,K.K) :PSET(W.108-K 
) ,0,TPSET:COLORI-0:PRINT#1 , "SC"C : NEXT : FO 
RI = 0TO1 : I = -STRIG(0)-STRIG(1 ) : NEXT: RUN 



m&onn 



fl p xca-ivmm 

x, y g$i©n#i 

a, g X^-Vftf&m 

C 7.37 

i , j )o-ym 

k ytb^hrao^xffl 

l U^JU 

q mmmmft 

S 7.x-ry2A2)ffl 

W ;S&=>105tfA3 

X(n), Y(n) @«©^» 



-jno^uwm 



«©^Bi§»i5c* z &m p s g 



y©*-i C£M«g©^7< 

(§) ^-ASHftfiK 



o) *tj»jisj£ 






•±©§£Stj^T©S£^ 
• 7,=l7JDg»7xi- y^A^ 
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,4fctd* 



'¥$0*6 







1 SCREEN1 ,3>RND(-TIME) : COLOR 1 5 . . : WI DTH 
32:KEYOFF:DEFINTA-Z:SPRITE$(0)="LO3*>><L 
2<t 00 t<2B-tt<~a»~T-<fTTf<":VDP(1 )=VDP(1 )- 
2:E$=CHR$(27)+"Y":ONINTERVAL=4GOSUB9 

2 D=5:G=7:B=4:H=H+(H-S)*(H<S) :S=0 

3 X=RND(1 )*480:D=D-(D<32) : G = G + 3 : R = SM0D4 + 
6-5*(SMOD4>0) :SOUND7,55 

4 CLS:PRINTE$" fHI"H:E$" -SC'S : INTERVALO 
N:VPOKE8204,51 : FORI = LTO0STEP-1 :L = I :GOSUB 
8:NEXT:IFGTHENFORI=0TO1 :I=-STRIG(0):NEXT 
ELSEPRINTE$"++GAME OVER" : FORI =0TO1 :B=(B 
+1 )M0D16:G0SUB8: I=STICK(0) :NEXT:GOT02 

5 L=L+1 :G=G-1 : G0SUB8 : VP0KE6864-L . 97 : VPOK 
E6863+L.97:IF(8-L)*G*STRIG(0)THEN5 

6 SOUND8.15:C=187:FORI=0TO20:SOUND6.I :C= 
357-C:VPOKE8204.C:LOCATE16-L.21-I:PRINTS 
TRING$(l*2>97) : NEXT : INTERVALOFF 

7 S0UND8. 16: SOUND 12.0: IFL*8+Z >1 27ANDZ-L* 
8<113THENS=S+1 : FORI =0TO96 : SOUND 1 3 . 9 : VPOK 
E6923.IM0D16:NEXT:G0T03ELSE4 

8 PRINTES" 7EN"G:FORJ=0TO1 :PUTSPRITEJ. (1 
12+1 6* J-L*8+J*L*16.171).B.J:NEXT: RETURN 

9 X=(X+D¥2)MOD480:Z=ABS(X-240) :P=(P+1 )MO 
D8:PUTSPRITE2. (Z.15) > R . P¥4+2 : RETURN 
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10 SCREEN 1 . 1 :DEFINTA-S:DIMA(32) .8(32) :SP 

RITE$(0)="<V<tt~<~y' :SPRITE$(1 ) ='*< V< tt~ = ? * 

":P$="L2S8M320N64" : 0NSTRIGG0SUB1 00 : L = 1 6 

20 COLOR 15.1 .4:SCREEN1 : WI DTH 1 : PRINTL ; " * I 

MI;":FORR = 0TO16:A(R+16)=SIN(R*R/140)*L*10 

:AU6-R)=-A(R + 16) : B (R+1 6) = 1 80 -COS ( R*R/ 14 

0)*L*10:B(16-R)=B(R+16):NEXT:G=8 

30 SCREEN2:PLAYP$:FORI=0TO128:A=256-I:GO 

SUB80:NEXT: D=0:N=90-L*5:R=16:S=0:W=(18-L 

)w.05:Z=0:STRIG(0)ON 

40 A = A + 4:Z = Z-W+.(R-16)¥G:R = R + Z: IFR<0ORR>3 

2THEN70 

50 GOSUB80:GOSUB90:S=S+1 : I FS< 255THEN40 

60 CLS:STRIG(0)OFF:PLAYP$:FORI=ATO240:GO 

SUB80:A=A+1 :NEXT:L=L+(L>1) : GOTO20 

70 STRIG(0)OFF:8EEP:R=-(R>16)*32:FORI=0T 

05: COLOR. , 9-1 : D=D+2 : GOSUB90 : NEXT : PLAY" SM 

9999N=N;":FORI=0TO3333:NEXT:GOTO30 

80 PUTSPRITE0. (A. 175) . 1 . P : P= 1 -P : RETURN 

90 CLS:LINE(A(R)+A,B(R)+D)-(A.180+D):PSE 

T(S.9) :RETURN 

100 A=A-8:Z=Z+W+W:RETURN 
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<^£eft 



fc. ;niJ. $,>b*-l;» r C0L0R l5,l,l:SCREEN2j«-*TLTfr*b;OT7 r a*'7A«:RUNS-t*nif. ES'Jil'WfCt 1 ) *~T„ 




10 COLOR 15. 0.1 :SCREEN2.3.0:DEFINTA-W:FOR 

I=0TO7:CLS:CIRCLE(8.8) . I : PAINT ( 8 . 8 ) : FOR J 

=0TO3: FORK=0TO7:VPOKE 14336+ 1*32+ J *8+K.VP 

EEK( ( JMOD2)*256+(J¥2)*8+K) :NEXTK, J.I 

20 SCREEN3:FORI=0TO2:M=I:H(I)=I*2:POKE&H 

F3D6.H(I)»8:CLS:FORJ=0TO9:CIRCLE(136>96) 

,M*M/6.14:M=M+3:NEXTJ.I:ONSPRITEGOSUB80 

30 D I MA (63) >B(63) ,C(63) ,D(63) :FORE=0TO63 

:A(E)=SIN(Z)*80:B(E)=COS(Z)*80:GOSUB90:C 

(E)=A(E)¥14:D(E)=B(E)¥14:Z=Z+.0976:NEXT 

40 COLOR. . 13-L:P=0:W=33-L*3:BEEP 

50 PUTSPRITE2. (0>170-P*8) . 1 5 . 2 : IFP >23THE 

NL=L-(L< 1 1 ) :GOTO40ELSEF=(F+RND(1 )*12-3)A 

ND63:IFABS(E-FK3THENC=1ELSEC=15 

60 FORI=0TO14:S=STICK(0) :E=(E+(S=7)-(S=3 

) )AND63:GOSUB90:PUTSPRITE1 >(120+C(F)*I>8 

0+D(F)»I) , C.I¥2:FORJ=0TOW:NEXT:NEXT 

70 SPRITEON:BEEP:SPRITEOFF:IFC=1THEN50EL 

SEP=P+(P>0) :PLAY"V15L8N9":GOTO50 

80 SPRITEOFF:IFC=15THENPLAY"V15L8N88":P= 

P+1 :RETURN50ELSEFORI=0TO15: PUTSPRITE0. .1 

: BEEP : NEXT :P=0: RETURN50 

90 PUTSPRITE0, (120+A(E) .80+B(E) ) -15,7:R= 

(R+1 )M0D3:VDP(4)=H(R) : RETURN 
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ETORT OF SLIME 



■JK-htf7*5^ 



ES3ES32/2+RAM8K 



!TOIi43'*-: 



1 COLOR 1 5. 0.RND( -TIME) :SCREEN1 . 1 >0:WIDTH 
1.5:KEYOFF:FORI=0TO36:VPOKE14336+I . VALC'S 
H"+MID$("303028382030509060604047B890081 
00000002070 A8F870000000000020F8702070A8F 
870" . 1*2+1 .2) ) : NEXT :VPOKE8204, 204 

2 F0RI=384T0695:Q=VPEEK(I) : VPOKEI . Q0RQ¥2 
:NEXT:C=2:T=0 

3 PRINTSPC(90)"RETORT OF SLAEM"SPC ( 34 ) "L 
EVEL"C-1 ;SPC( 108+ (C>10) ) STRINGS ( 30.97 JSP 
C(60) ; :X=100:W=155 

4 L=INT(RND(1 )*9+2) : P=L¥2 : M=2 : W=W-5 

5 S = STICK(T) :X = X+( ( S = 7 ) - (S = 3 ) ) *3 : J = I : I =S 
TRIG(T):K=(KJ)*(S = 0):L = L-1 : IFL< 1 THENM = M 
+1+(L=-1 ) :W=W+(C+2)*(M=4) 

6 PUTSPRITE1 . (W.119) , C . M : PUTSPRITE0 . (X.1 
19) ."7. K: IFW-X<9THENVPOKE6915.8:PLAY"S10I V I 
707L16C" :X=X-7-C+P*(M=4)ELSEIFW-X<17AND( 
M=4ORM=2)ANDKTHENVP0KE6919.8:PLAY"S8M7O1 
L16C:W = W + 15 + P-(M = 4)*12 

7 IFW>188THENC = C-(C<15) : PUTS PR I TE 1 . ( W + 5 . 
125) . , 2:PLAY"V13O4CEDFEA":FORI=0TO50 0:NE 
XT:GOT03ELSEIFX>66THENIFL=-2THEN4ELSE5EL 
SEPLAY"V13O4GEFDEC":PUTSPRITE0. (54.125) . 
.1 :FORI=0TO1 :I=-(STICK(T)=1) :NEXT:G0T03 
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> ?eto >K2j=<5JH*>STifife<«fflift>SJiiiltansi:Uj»>ujiawi£ 
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GREEN WALL 



EE3ES32/2+RAM8K BY mmftm 



vv-y-Qx-n 



trnvmrn^-y 



1 SCREEN! .1 .0:COLOR15.1 .1 : KEYOFF : DEFINTA 
-Z:WIDTH16:E$=CHR$(27)+"Y" : FORI =0TO20 : SP 
RITE$(I)=MIDSOxVD-t'Mtt3qyua$Z + 'ff?.K<" .1 + 
1.1):NEXT:X=131 : Y=1 04:C=0 : B=0 :SPRITEON: B 
EEP:PLAY"V15L403L16CEGL2B" 

2 FORI=10TO15:LOCATE7.I:PRINT"I l":NEXT: 
PRINTES") ' t— i"E$"0' l — • "ES"#1 C GREEN WALL 

]":ONSPRITEGOSUB5 

3 FORI=1TO20:PUTSPRITEI. (0.209) :NEXT:Q=I 
NT(RND(-TIME)*10)+1 : H=C- ( H >C ) * ( H-C ) :HB=B 
-(HB>B)*(HB-B) :PRINTE$USING"1$SC####:##" 
;C;B:PRINTE$USING"2$HI####:##";H;HB 

4 FORI=75TO129:PUTSPRITE0. (X.Y) >15:PUTSP 
RITEQ. (124.1) ,12:PUTSPRITEQ+10. (124.204- 
I) >12:S=STICK(0) :X=X-(S=7)*(X>124)+(S=3) 
*(X<138) :Y = Y-(S = 1 ) * ( Y >75 ) + ( S=5 ) * ( Y<1 29 ) : 
NEXT:C=C+105-Q*5:B=B+1 :GOT03 

5 PRINTE$"4$GAME OVER" : PLAY" V1 5L6404BGC" 
:FORI=0TO20:A=(A+1 ) MOD1 4 : COLORA+2 : NEXT : I 
FSTRIG(0X0THENSPRITEOFF:GOTO1ELSE5 
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ANK BATTLE 



EE32/2+VRAM64K BY MO- 



SVO-JXMl 



► STOBM'S-y 



10 CLEAR200:SCREEN5.1 : DEFUSR=144 : OPEN"GR 
P:"AS#1 :DEFINTA-Z:X=RND(-TIME) :DIMP(15) , 
0.(15), T(15),H(15) :FORI=0TO15:READP(I) ,Q( 
I).T(I).Hd) :NEXT:GOSUB250:COLOR=(8,4,3, 
0) 

20 COLOR15.0.0:SETPAGE. 1:LINE(0.0)-(255. 
211) >8>BF:FORI=0TO100:PSET(INT(RND(1)*25 
5) , INT(RND(1)*110) ) .11 :NEXT:COPY(0.0)-(2 
55. 110) TO (0.105) :SETPAGE.0 
30 LINE(0.0)-(255,211).12.BF:X(0)=0:Y(0) 
=0:D(0)=4:W(0)=4:V(0)=5:F(0)=0:X(1)=240: 
Y(1) = 195:D(1)=12-;W(1)=12:V(1)=5:F(1)=0 
40 LINE (42. 52) -(222. 80) , 8 . BF : L INE (40 , 50 ) 
-(220.78) ,4.BF:FORI=0TO1 : PRESET (50+1 .60) 
> ,TPSET:PRINT#1 ."T ANK BATTL E":P 
RESET(60+I.90) , -TPSET:PRINT#1 ."1 9 9 1 

MO-SOFT": PRESET (70 + 1. 150) . . TPSET : PRINT* 
1 ."Push Space Key":NEXT 
50 FORI=0TO1 :I=-STRIG(0)-STRIG(1 ) :NEXT 
60 SOUND7.28:PLAY"04" ."03" ."03" :A$="S0M5 
000T130L16CCCCDEFFDEFDCR8" :PLAY A$+"L805 
C".A$+"L804C" ."T130L16S0CCCCCCCCCCCCCR8C 

70 IFPLAY(0)THEN70ELSECOPY(0,0)- (255.211 

) ,1 TO (0.0) , 0:FORI=0TO1999:NEXT 

80 SOUND7.156:SOUND0.255:SOUND1 .255:SOUN 

D2.155:SOUND3.255:SOUND4.255:SOUND5.255: 

SOUND6.55:SOUND8.15:SOUND9.16:SOUND10.16 

:SOUND13.0:SOUND11 .0 

90 FORI=0TO1 :S=STICK(1) : IFS >1 ANDS< 5THEND 

(I)=D(I)+1+(D(I)=15)*16:W(I)=W(I)+1+(W(I 

)=15)*16 

100 IFS>5THEND(I)=D(I)-1-(D(I)=0)*16:W(I 

)«W(I)-1-(W(I)»#)*16 

110 IFS=10RS=20RS=8THENW(I)=W(I)-1 :IFW(I 

)=-1THENW(I)=15 

120 IFS>3ANDS<7THENW(I)=W(I)+1 :IFW(I)=16 

THENW(I)=0 

130 IFSTRIG(I)THENIFF(I)=0THENF(I)=1:TX( 

I)=X(I):TY(I)=Y(I):C(I)=0:XZ(I)=P(W(I))* 

2:YZ(I)=Q(W(I))*2:SOUND6.50:SOUND12.50:S 

OUND13.0 

140 IFF(I)THEN180 

150 X(I)=X(I)+P(D(I)):Y(I)=Y(I)+Q(D(D): 

IFX(IX10RX(I) >240THENX(I)=X(I)-P(D(I) ) 

160 IFY(IX10RY(I)>194THENY(I)=Y(I)-Q(D( 

I) ) 

170 PUTSPRITE 1+1*3. (X(I) .Y(I) ) .12-1*6. T 

(D(I) ) : PUTSPRITE 1*3. (X(I).Y(I)).3+I*6.H( 

W(I) ) :NEXT:GOTO90 

180 TX(I)=TX(I)+XZ(I) :TY(I)=TY(I)+YZ(I) : 

C(I)=C(I)+1 :IFC(I)=15THENF(I)=0:PUTSPRIT 

E2+I*3. (TX(I) .TY(I) ) .10.0:SOUND6.200:SOU 

ND12.20:PUTSPRITE2+I*3. ( TX ( I ) . TY ( I ) ) .8 . 1 

:FORJ=1TO5:SOUND13.0:CIRCLE(TX(I)+6,TY(I 

)+6) .J.1 :NEXT:PUTSPRITE2+I*3. (0,217) :GOT 

0150 



190 IFTX(IX0ORTX(I) >246THENXZ ( I ) =-XZ ( I ) 

ELSEIFTY(IX0ORTY(I) >202THENYZ ( I ) =-YZ ( I ) 

200 PUTSPRITE2 + I*3. ( TX ( I ) . TY ( I ) ) . 1 5-1*1 1 

, : IFTX ( I ) >X ( 1 -I ) -6ANDTX ( I XX ( 1 - I ) +6ANDT 

Y(I) >Y(1-I)-6ANDTY(IXY(1-I)+6THEN210ELS 

E150 

210 C0L0R=(8.7.7,7) : S0UND6. 255 : S0UND1 2 . 1 

50:SOUND13.0:COLOR=(8.4.3.0) :PUTSPRITE2+ 

I*3,.0:F(I)=0:V(1-I)=V(1-I)-1 :IFV(1-I)>0 

THEN150 

220 FORK=0TO1 9 :COLOR= (8.7.7.7) :S0UND12>2 

0:SOUND13.0:COLOR=(8.4.3.0) : F0RJ=1 T02 : PU 

TSPRITE(1-I)*3. (X(1-I) .Yd -I) ) >RND(1)*15 

.J:NEXT:NEXT 

230 FORK=1+I*2TO4+I*2:FORJ=0TO9:LINE(64- 

J.90-J)-(186+J.90+J) , K.BF: NEXT: NEXT :PRES 

ET(62.86) , . TPSET :PRINT#1 . "♦ Player" ;I + 1 ; 

"win ♦":A=USR(0) : PLAY"T1 20S0M7000O4L8CCD 

FR4L4B"."T120S0O3L8EEFAR4L4O5D" 

240 IFPLAY(0)THEN240ELSEFORI=0TO1 :I=-STR 

IG(0)-STRIG(1 ) : NEXT: FORI =0TO5: PUTSPRITE I 

. (0.217) :NEXT:GOTO30 

250 FORI=0TO20:FORJ=0TO7:READA$:B$=B$+CH 

R$(VAL("&H"+A$)) :NEXT:SPRITE$(I)=B$:B$=" 

":NEXT:FORI=13TO19:FORJ=0TO7:B$=B$+MID$( 

SPRITES(I) .8- J.1 ) : NEXT : SPRITES (I +8 )=B$:B 

$="":NEXT:RETURN 

260 DATA 0,-4.4.16.1.-3.5.17.2.-2.6.18.3 

,-1,7, 19, 4, 0,8. 20. 3. 1.9, 27, 2, 2. 10. 26. 1,3 

.11 ,25-0,4,4,24,-1 ,3,5,23.-2,2,6,22,-3,1 

, 7, 21, -4, 0,8, 12, -3, -1,9, 13. -2. -2. 10.14, - 

1,-3,11 ,15 

270 DATA 00 ,00,00, 18, 18, 00, 00, 00. 72. AD. B 

5.C6, AC,CA,B6,5C 

280 DATA 3C.66,4B,75,59.AB.D6.3C.3C,7E,E 

7,DB,DB,E7,7E,3C 

290 DATA 00 ,3C.3C.3C,3C,3C.3C.00.00. 18. 1 

E.1E.3C3C.0C.00 

300 DATA 00 .08, 1C,3E,7C,38, 10,00 -00.0C7 

C,7E,3E,30,00,00 

310 DATA 00 ,00,7E.7E,7E,7E>00>00>00,30>3 

E,7E,7C,0C.00.00 

320 DATA 00, 10,38. 7C3E. 1 C . 08 . 00 . 00 . 0C . 3 

C3C.1E.1E, 18,00 

330 DATA 00 .00,00. F8.F8. 00. 00. 00. 00,00,6 

0.78. 18.00.00.00 

340 DATA 00.20.70.38.18.00.00.00.00.30.3 

0,18. 18.00.00.00 

350 DATA 18. 18,18,18, 18, 00, 00,00, 00, 0C0 

C 18, 18,00.00,00 

360 DATA 00 ,04, 0E , 1C, 18,00,00- 00,00,00 -0 

6, 1E, 18, 00, 00, 00 

370 DATA 00, 00, 00, 1F, 1F, 00, 00, 00 
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"SUBMARINE 6A 



HIP" 
SCORE' 



10 REM THE SUBMARINE GAME 1991-2-1 BY TS 

UTOMU EGASHIRA 

20 COLOR 15.1 .1 :SCREEN 5.1.0 

30 OPEN "GRP:" FOR OUTPUT AS 

40 CIRCLE(130.110) .120. 15. . . . 

50 PAINT(130.110) .6.15 

60 CIRCLE(130. 110) .110.11 ... . 

70 LINE (20>110)-(240,110) .11 

80 PAINTM30.100) .15.11 

90 PAINTM30.120) .5.11 

100 LINE(5.0)-(55.30) .7.BF 

110 LINE(205.0)-(255.30) -7.BF 

120 LINE(130,40)-(130,179) ,1 

130 PRESET(76.10) :PRINT #1 

ME" 

140 COLOR 1 .7 

150 PRESETC14.10) :PRINT #1." 

160 PRESETC210.10) :PRINT #1, 

170 FOR T=1 TO 4:A$="" 

180 FOR K=1 TO 8 

190 READ B$:A$=A$+CHR$(VAL("& 

200 NEXT K 

210 SPRITE $(T)=A$ 

220 NEXT T 

230 DATA A5.42.A5.5A.3C.5A.3C 

240 DATA 00.00. 18.3C.24.FF.7E 

250 DATA 01.02.04.08.10.20.40 

260 DATA 80.40.20.10.08.04.02 

270 SH=1:SC=0 

280 PRESET(226.20) :PRINT #1. 

290 ON SPRITE GOSUB 640 

300 ON STRIG GOSUB 580 

310 TF=0:BK=0:N=0 

320 IF SH-SO10 THEN 790 

330 PRESETU4.20) :PRINT #1,SH 

340 SH=SH+1 

350 S=RND( -TIME) *4.5+1 : D=RND ( -TIME ) 

360 A=20:B=225:C=S:T=2:Y2=97:Y3=0:Y4=0 

370 IF D>.5 THEN A=225 : B=20 :C=-S 

380 SPRITE ON:STRIG(0) ON 

390 FOR X2=A TO B STEP C 

400 IF BK=1 THEN 510 

410 IF BK=0 THEN PUT SPRITE 2.(X2.Y2).1. 

2 

420 IF TF = 1 THEN X3=X3+T : Y3=Y3-T : X4=X4-T 

:Y4=Y4-T 

430 IF Y3<110 THEN TF=0:PUT SPRITE 3.(12 

0,217) .0.3 

440 IF Y4<110 THEN PUT SPRITE 4.(140.217 

) .0.4 

450 IF TF=1 THEN PUT SPRITE 3.(X3.Y3).15 

.3 

460 IF TF = 1 THEN PUT SPRITE 4,(X4.Y4).15 

,4 

470 N=N+1 



H"+B$)) 



.18 
.3C 
.80 
.01 

0" 



:X3=73:Y3=150:X4=17 



480 IF TF=0 AND BK=0 AND (N MOD 8)=1 THE 

N PLAY"L805B" 

490 NEXT X2:STRIG(0) OFF 

500 PUT SPRITE 2. (X2.217) ,1 .2 

510 FOR 1=1 TO 50 

520 IF TF = 1 THEN X3=X3 + T : Y3 = Y3-T : X4 = X4-T 

:Y4=Y4-T 

530 IF Y3<110 THEN TF=0:PUT SPRITE 3.(12 

0,217) ,0,3 

540 IF Y4<110 THEN PUT SPRITE 4,(140,217 

) ,0,4 

550 IF TF=1 THEN PUT SPRITE 3,(X3.Y3).15 

.3 

560 IF TF=1 THEN PUT SPRITE 4.(X4.Y4),15 

,4 

570 NEXT I:GOTO 310 

580 STRIG(0) OFF:TF=1 

2:Y4=150 

590 SOUND 2,0:SOUND 3,0 

600 SOUND 6>3:S0UND 7,46 

610 SOUND 9>16:SOUND 11,54 

620 SOUND 12,159:SOUND 13,0 

630 RETURN 

640 SPRITE OFF:SC=SC+1 :TF=0:BK=1 

650 PUT SPRITE 3, ( 122 ,21 7) . . 3 

660 PUT SPRITE 4 . ( 1 31 . 21 7 ) , . 4 

670 PUT SPRITE 1 , ( 1 22 ,97) .6 . 1 

680 SOUND 2.0:SOUND 3.0 

690 SOUND 6.30:SOUND 7.46 

700 SOUND 9,16:SOUND 11.27 

710 SOUND 12,79:S0UND 13.0 

720 FOR 1=1 TO 500:NEXT I 

730 PUT SPRITE 2, ( 122 .21 7) . . 2 

740 FOR 1=1 TO 500:NEXT I 

750 PUT SPRITE 1 . ( 126 .21 7) . . 1 

760 PRESET(218.20) :PRINT #1.SC 

770 RETURN 

780 SOUND 2.0:SOUND 3.0 

790 SOUND 6,60:SOUND 7,46 

800 SOUND 9,16:S0UND 11,54 

810 SOUND 12,159:SOUND 13.0 

820 PAINT(130,180) .9.11 

830 COLOR 1 ,9:PRESET(96.90) :PRINT #1."GA 

ME OVER" 

840 PRESET(75,130) :PRINT #1,"»8£ © ttA,*0# 

K tt" 

850 PRESET(87,150) :PRINT #1."tr*tt SUSLfe 

i » 

860 FOR 1=1 TO 2500:NEXT IrCOLOR 15.1.1: 

END 
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10 SCREEN 1 . 1 :COLOR15>5.1 : WIDTH32 : KEYOFF : 

A$="D669B6FFFFFFFFFFFFFFFFAAFF55AA0000C0 

7098EC16CB25DEBD639C73BCC13EDEBD639C73BC 

C13E7EFFFFFFFFFFFF7E80CCFE9F60C000000133 

7FF90 6030 0B44830786878683070 50F02E3966 

797E0E0A0F649C669E7E68E1154F1EFEF5" 

20 DEFINTC-Z:FORI=0TO5:FORJ=0TO7:VPOKE16 

00+ 1*64+ J >VAL("&H"+MID$(A$.I*16+J*2+1 .2) 

):NEXTJ. I :FORI=0TO4:B$="" : FORJ=0TO7 : B$=B 

$+CHR$ ( VAL ("&H"+MID$(A$> 97+1*1 6+J*2> 2) ) ) 

:NEXT:SPRITE$(I)=B$:NEXT:FORI=0TO6:VPOKE 

8217+I.VAL("&H"+MID$(A$.177+I*2>2) ) :NEXT 

:A=4:U=22 

30 A=A+2:M$="":B$=CHR$(30)+STRING$(12.CH 

R$(29) ) :M$="' ' "+B$ + " ITHANK YOU 

»I"+B$+" i 1" 

40 BEEP:CLS:U=U-2:X=1 :B=0 : P=5 : FORI=0TO2 : 
LOCATE 0. 21 + 1: PR I NT" ****?* **"+ST RINGS (U. " 
fe")+STRING$(23-U>"*") ; : NEXT : FORI =0TO4 : LO 
CATERNDt 1 )*28.RND(1 ) *1 0+5 : PRINT"***" :X(I 
) =8: LOCATE 0.1 6+ 1 : PRINT"H.EEEE.E.EE'J" :NEXT:R 
=72:LOCATE5.0:PRINT"HI ■ SCORE "D" : SCORE "C 
50 IFB+1>UTHENBEEP:PLAY"V12L8EDC.":G0SUB 
1 60 :C=0: LOCATE 11 . 1 2 : PRINT" SEA DEAD- • ■ " : F 
ORI=16TO90:PUTSPRITE0> ( X + SIN ( I ) *3 . 1*2) .6 
, I/3M0D2:PUTSPRITE2. ( R+IM0D2 . 1 60 ) .1.3:1= 
I*(1+(-STRIG(0)*89) ) :NEXT:GOTO40 
60 IFX<10RX>236THENA=-A:X=X+A 
70 S=S*-(N<175) :I=ABS(A/2) :T=STICK(0) :X = 
X+(T=7)*I-(T=3)*I+A:IFSTRIG(0)ANDN=39THE 
NS = -1 

80 IFSTHENGOSUB110ELSESOUND7.7:SOUND6.0: 
SOUND8.15:SOUND12.20:SOUND13.1 :N=39:PUTS 
PRITE2. (R.152+RMOD6) .11 >3+Z:Z=RND(1 )*2:R 
=R+4*Z+4*(R>U*8+46) :SOUND1 .2 



90 IFP=0THENIFU=10THEN130ELSELOCATER/8-6 

.18:PRINTM$:PLAY"SL8CC.C.CC.","SM90 00O3L 

8EE.D.DE.":B=INT(B) :I=(U-B-1 )*5:LOCATE5. 

9:PRINTSTRING$(U-B-1 >"£") ;" * 5 =";I:C=C 

+I:FORI=0TO1 : I=-STRIG(0) :NEXT:GOTO40 

100 B = B+ (30-U)/1000*P: FOR 1=2 1T023: LOCATE 

8+B.I:PRINT"h"; :NEXT :PUTSPRITE0 . (X.16) ,1 

4>-(1/2)*(SGN(A)-1 ) :PUTSPRITE1 . (X.N- 16) . 

3.2:GOTO50 

110 SOUND7.56:SOUND8.15:SOUND0.N:N=N+8:I 

FVPEEK(6144+INT( (N/8) ) *32+INT ( X/8 ) )=208T 

HENS=0:J=N/8:I=J-16ELSERETURN 

120 S0UND6.9:S0UND7.49:S0UND8. 16:SOUND13 

.1 :P=P+(X(I)=8) :L0CATEX/8.J:IFX/8<X(I)TH 

ENPRINT"'J " ; :LOCATEX(I) . J:PRINT" ";:X(D 

=X/8:RETURNELSEPRINT" ": RETURN 

130 BEEP:A$="V1404L2AL8FGA05D04L4BGFL16E 

FG2L8EFGBA4G2L16CDF2L8CDFGF4E2FG1" 

140 FORI=0TO23:LOCATE0.23:PRINTCHR$(13) : 

NEXT: FORI =0TO5: LOCATE RND(1 ) *1 5+1 5 . 1*2 : PR 

INT"****" : NEXT: FORI = 0TO1 1 : LOCATE 0. I : PR IN 

TSTRING$(8+I."E") ; : LOCATE . 1 + 12 : PRINTSTR 

ING$(32."h") ; :NEXT:FOR 1=0 TO 9:Y(I)=RND 

(1 )*240:Z(I)=RND(1 )*60+96:NEXT 

150 GOSUB170:VPOKE8221 . 79 : LOCATE3 ,9 : PRIN 

T"» HAPPY »":GOSUB160:FORI=0TO1 :GOSUB170 

:I=-STRIG(0) :NEXT:VPOKE 8221 .30:U=22:FOR 

I=0TO9:PUTSPRITEI. (0.209) :NEXT:GOTO30 

160 LOCATE2.3:PRINT"ttA.tt£";C:D = D*(1 + (OD) 

)-(OD)*C:N = 0:S = 0:U=22: RETURN 

170 FORJ=0TO9:FORI=0TO9:PUTSPRITEI. (Y( I) 

.Z(I)).11.3+RND(1)*2:Z(I)=Z(I)+INT(RND(1 

)*5)-2: IFSTRIG(0)=0THENNEXTI .J 

180 IFPLAY(0)=0THENPLAYA$."R64"+A$."R32" 

+A$:RETURNELSERETURN 



"7t27-=y?rtS 
VtZt 



-wirmtx- 



-DtzlfhZt, ZW-UT, MtZ -+)■■< H-^^ZU^Z<tdtSl.\ WM 

<D?.3'jti\^mzM?7y£M^Km7iC03m:'&-o'zmB ! &m-&r\ 
£:i!£B£}Sotu*To z<D^^'jti'^<a!zt^mm r ^^yymttx 
~j„ zommommiis u^nt-mi^ HOTofrofce, m^z<tzti 




W&0)WXfc 



MM 9 

x mmwxDxmw 

n =+>■-< )V(dy mm 

r mcDxmm 

Y(n), z(n) n©im=» 

X(n) sttiurnsujffl© 

xmm 

A MW®XD®Wl®-ft 

A$ x-^BI^^^ffl 



b wimzmt>fttcm<Dwm 

B$ Xvte-yfti&m 

C XZI7 7 

D )U7,z\y 

i , j iv-ym 

p mocDJuy 

s s+kji^^' 

u M(Dmm 

z mcD&mmft 



JUV31xMm 



10 WmmWfe/T-VWfe 



70 




30 Xyt-VWCfc 
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20>Sun7 
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10 SCREEN1 » 1 :WIDTH8: COLOR! 5.1 . 1 :KEYOFF:D 
IMM<9,13) :FORL=0TO320STEP64:RESTORE320:F 
0RV=768TO799:READA:VPOKEV+L,255-A:NEXTV, 

L 

20 FORI=8204TO8208:READA:VPOKEI .A: NEXT 

30 C$=CHR$(31 )+STRING$(2.29) :FORI=0TO4 

40 READA$.B$:BL$(I)=A$+C$+B$|NEXT 

50 SPRITE$(0)=CHR$(254)+"«M«"+CHR$(12 

7) :F0RBC=1T04:READC:C(BC)=C:NEXT 

60 CLS:FORY=0TO13:FORX=0TO9:M(X,Y)=0:NEX 

TX»Y:P=0 :WA=200 

70 LOCATE0-7:FORY=1TO6:FORX=1TO4:PRINTB 

L$(0)+CHR$(30) ; : NEXTX: PRINT: NEXT Y 

80 X=INT(RND(-TIME)«4+3) :Y=4 

90 C=INT(RND(-TIME)*4+1) 

100 S = STICK(0) :X=X+(S=3)*(X=<5)-(S=7)*(X 



> = 4! 

110 

120 

130 

140 

150 

INT' 



PUTSPRITE0. ( X*1 6+46. Y* 16-10) . C(C) .0 

IFM(X.Y)=0THEN170 

Y=Y+1 :FORU=0TOWA:NEXT 

PUTSPRITE0. ( X*1 6+46, Y* 16-10) >C(C) .0 

IFY>9THENLOCATE0,4:PLAY"S13O1C4." :PR 

GAMEOVER" :FORI=0TO1 :I=-STRIG(0) :NEXT 



:GOTO60 

160 IFM(X. Y)=0THEN170ELSE100 

170 PUTSPRITE0. (0.209) :M(X.Y)=C 

180 PLAY"V15M150S0T120O8C":B=0 

190 FORI=0TO3:X(I)=0:Y(I)=0:NEXT 

200 LOCATE (X-3)*2, ( Y-4 ) *2+7 : PRINTBLS ( C) 



X(nh Y(n) 3^U±CD 



0~3©iEH) 
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B 3-oU±MhjT^M£*\ ■ 

M/uTn&tmii'O 

BC, l,K,L LL V 

iv-zm 

BL$(n) ^G'^Iiffl 



210 F = 0:F(0)=0:FORK = X-3TOX + 2:IFM(K.Y)OC 
THENF=0:NEXTELSEF=F+1:IFF=3THENX(0)=K:Y( 
0)=Y:IFM(K+1 ,Y)=CTHENF(0)=1ELSEELSENEXT 
220 F = 0:F(1) = 0:FORK = Y-3TOY + 2:IFM(X.K)OC 
THENF=0:NEXTELSEF=F+1:IFF=3THENX(1)=X:Y( 
1)=K:IFM(X,K+1)=CTHENF(1)=1:IFM(X,K+2)=C 
THENFM )=2ELSEELSEELSENEXT 
230 F=0:F(2)=0:FORK=-3TO2:IFM(X+K,Y+K)<> 
CTHENF=0:NEXTELSEF=F+1:IFF=3THENX(2)=X+K 
:Y(2)=Y+K:IFM(X+K+1 ,Y+K+1 ) =CTHENF (2) =1 EL 
SEELSENEXT 

240 F=0:F(3)=0:FORK=-3TO2:IFM(X+K.Y-K)<> 
CTHENF=0:NEXTELSEF=F+1 : I FF=3THENX (3 ) =X+K 
:Y(3)=Y-K: IFM(X + K+1 .Y-K-1 ) =CTHENF ( 3 ) = 1 EL 
SEELSENEXT 

250 IFX(0)O0THENFORL = X(0)-2TOX(0)+F(0) : 
M(L.Y(0))=0: LOCATE ( L-3 ) *2 , ( Y ( ) -4 ) *2+7 : P 
RINTBL$(0) ; :NEXT:P=P+12+4*F(0) :B=1 
260 IFX(1)O0THENFORL = Y(1)-2TOY(1 )+F(1) : 
M(X(1) . L) =0 : LOCATE (X(1) -3 )*2, (L~4)*2+7:P 
RINTBL$(0) ; :NEXT:P=P+9+3*F(1 ) :B=1 
270 IFX(2)< >0THENFORL = -2TOF(2) :M(X(2)+L, 
Y(2)+L)=0:LOCATE(X(2)+L-3)*2, (Y(2)+L-4)* 
2+7: PRINTBLS (0) ; :NEXT : P=P+1 5+5*F (2) :B=1 
IFX(3)O0THENFORL = -2TOF(3) :M(X(3)+L. 
-L)=0: LOCATE (X (3) +L-3)*2. (Y(3)-L-4)* 
PRINTBLS(0);:NEXT:P=P+15+5*F(3):B=1 
IFB=1THENPLAY"L6407CDE" :WA=WA~10 
LOCATE0.2:PRINTUSING"SCORE###" ;P 
FORU=0TO150:NEXT:GOTO80 
DATA 0.0. 0.0. 0,0. 0.0.7. 9. 17. 9. 49. 
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10>Vw51 
50>6Tb0 
90>Ch40 
130>0e30 
170>FI40 
210>sno1 
250>R6f 1 
290>Bm70 



20>bL40 
60>6nL0 
100>UAN0 
140>FG70 
180>7M50 
220>gMk2 
260>uCf 1 
300>SQ30 



30>QV70 
70>gnN0 
1 1 0>FG70 
150>9Dd0 
190>X260 
230>vnV2 
270>bov1 
310>SH20 



40>gY70 
80>qn60 
120>PH20 
160>6h30 
200>D280 
240>svV2 
280>f uv1 
320>OCs2 
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10 CLEAR3 
:COLOR15. 
DEFUSR=&H 
=USR1 (0) 
20 ONERRO 
8) >YZ(8) , 
.3) ,SS(1 . 
) ,B(3) , DW 
30 RESTOR 
:NEXT:FOR 
(I.J) .A(I 
EXT 

40 OPEN"G 
EI.I:CLS 
(108 + 1 .17 
T(104+I,1 
T 

50 FOR 1= 
,16) » 1 TO 
239 STEP 
,1 ,TPSET 
FORJ=2TO0 
,20)-(255 
XT 

60 FORI=0 
8-1) ,11 ,B 
,0) ,1 
70 G0T073 



00:MAXFILES=2:DEFINTA-Z:SCREEN1 
0,0:KEYOFF:WIDTH32:SCREEN5,2,0: 
156:DEFUSR1=&H41 : DEFUSR2=&H44 : A 



RGOTO1190:DIM X ( 1 , 3) > Y ( 1 , 3 ) > XZ ( 
M(1,3),A(1,3),D(1,3),W(1,3),R(1 
3) ,M1 (3) ,A1 (3) ,D1 (3) >R1 (3) ,W1 (3 
(1 ,3) ,C(1 ) 

E1490:FORI=0TO8:READXZ(I) , YZ(I) 

I=0TO1 :FORJ=0TO3:READNA$(I , J) ,M 

J),D(I,J),R(I.J)'W(I,J) :NEXT:N 

RP:"AS#1 :FORI=3T01STEP-1 :SETPAG 
NEXT:GOSUB1260:FORI=0TO1 :PRESET 
0) , ,TPSET:PRINT#1 , "li^trt" : PRESE 
85) , ,TPSET:PRINT#1 , "1,»5»)j:o" :NEX 

TO 239 STEP 14:C0PY (0,0)-(15 

(1,20) ,1 ,TPSET:NEXT:FOR 1=7 TO 

14:COPY(0.0)-(15.16) ,1TO(I ,31 ) 

NEXT : LINE (0,0) -(255, 161 ) ,12, BF : 

STEP-1 :FORI=0TO132STEP22:COPY(0 

47) ,1TO( J.I+J) .0>TPSET:NEXT:NE 

T02:LINE( 100-1-1 65-1 )-(156-I. 19 
NEXT:COPY(0,0)-(255>211 ) ,0TO(0 







80 SCREEN5-2:A=USR1 (0): RESTORE 1590: FORI = 

0TO1 :FORJ=0TO3:READX(I , J ) , Y ( I , J ) , SS ( I . J ) 

:NEXT:NEXT:COLOR=(12,0.0.4) : GOSUB1 280 : CO 

PY (0,0)- (255,211 ) -1 TO (0.0) ,0:FORI = 0TO24 

:X=40+RND(1 ) *146 : Y=5+RND ( 1 ) *1 50 : PAINT ( X , 

Y) ,5,7:NEXT:X = RND(-TIME) 

90 p=0:G=0:PP=1 :TU=50:FORI=0TO1 :FORJ=0TO 

3:PUTSPRITEI*4+J+1 , (X ( I , J ) > Y ( I , J ) ) > 14-1* 

11,I:DW(I,J)=D(I.J) : NEXT :FF(I)=0: NEXT :A= 

USR2(0) 

100 'MAIN ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

110 PLAY"S0M20000L16O4EDEDEDEDEGB" ,"S0L1 

602CDCDCDCDEDC" 

120 IFP=0THENN=INT(RND(1)*5)+1 :PRESET(10 

6,202) :PRINT#1 . USING" 9-^ : ##" : 51 -TU 

130 C(0)=14-P*11 :C(1)=8:FORI=0TO1 :LINE ( 

10+I*158.165)-STEP(85,46),0-BF:NEXT:IFD( 

P.GX1THEN240 

140 X=X(P>G) :Y=Y(P,G) :M=M(P.G)+(N>3ANDW( 

P.GX50) :X(P.G)=-1 :GOSUB510 

150 IFM=0ORSTRIG(P)THENX(P,G)=X:Y(P,G)=Y 

■-GOTO270 

160 S=STICK(P) :GOSUB690:IFS=0ORS=1ORS=5T 

HEN150 

170 X=X+XZ(S) :Y=Y+YZ(S) :M=M-1 :F=0:FORI=0 

T01 :FORJ=0TO3:IFX=X(I.J)ANDY=Y(I.J)THENF 

180 NEXT:NEXT:IFP0INT(X + 4,Y + 4)O40RF = 1TH 

ENX=X-XZ(S) :Y=Y-YZ(S) :M=M+1 

190 SS(P,G)=S:GOSUB560 

200 PUTSPRITEP*4+G+1 , (X,Y) , ,P:GOSUB690 

210 IF STICK(P)=S THEN 210 
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220 GOTO 150 

230 PUTS PR I TE0, (0.212) : GOSUB620 : BEEP : PL A 

Y"S0M9000O3L16G.R16CEG"."S0L16O4B.R16EGB 

":PUTSPRITEP*4+G+1 . . 14-P*11 

240 IFPLAY(0)THEN240 

250 IFFF(PP)=4THEN650 

260 G=G+1 :IFG<4THEN130ELSEG=0:SWAPP.PP:B 

EEP:TU=TU+(P=0) :IFTU>0THEN110ELSE660 

270 'END or ATTACK ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

280 BEEP:YY=168:GOSUB620:PLAY"S0M70 0O4L 

16DFA" ."S0O5L16CEG" 

290 IFSTRIG(P)ORSTICK(P)< >0THEN290 

30 S=STICK(P) :GOSUB690: IFSTRIG ( P ) THEN 33 

0ELSEIFNOT(S=1ORS=5)THEN300 

310 GOSUB620:IFS=1THENYY=168ELSEYY=183 

320 GOSUB620:GOTO300 

330 FORI=0TO1 :I=1+STRIG(P):NEXT:IFYY=168 

THEN360ELSE230 

340 GOTO300 

350 'ATTACK ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

360 TI=0:PLAY"O6S0M5000L8AC:FORI = 0TO999 

:NEXT 

370 S=STICK(P) :GOSUB690: IFS=0ORS= 1 ORS=5T 

HEN370 

380 IFS=SS(P.G)0RS=SS(P.G)-40RS=SS(P.G)+ 

4THENK=(A(P,G)/2+10/N-(TK3)*(10-N))/3 + I 

NT(RND(1)*5)ELSEK=(A(P,G)+10/N-(TI<3)*(1 

0-N) )/3+INT(RND(1 )*4) 

390 TX=X+XZ(S):TY=Y+YZ(S):R=R(P,G)-1:F1= 

9:F2=9:GOSUB600 

400 PUTSPRITE0. (TX.TY) . 1 >4:FORI=0TO1 :FOR 

J=0TO3:IFX(I.J)=TXANDY(I , J)=TYANDD(I , J) > 

0THENF1=I :F2=J 

410 NEXT:NEXT:IFF1=9THENR=R-1 :TI=TI+1 :IF 

R=-1THENGOSUB710:GOTO230ELSEIFTX<0ORTX>2 

55ORTY<0ORTY>143THEN230ELSETX=TX+XZ(S) :T 

Y=TY+YZ(S) :GOTO400 

420 GOSUB440-.GOTO230 

430 'HIT? ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

440 H$ = "1 111111 1"+STRING$( ((100+(TI*N)/5 

)-W(P.G) )/2>48) :IF(MID$(H$.INT(RND(1 )»(L 

EN(H$)-1 ) )+1 .1 ) )="1"THENGOSUB470ELSEGOSU 

B710 

450 RETURN 

460 'BOM ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

470 GOSUB610:FORI=0TO10:FORJ=2TO3:FORW=0 

TO99:NEXT:PUTSPRITE0. (X(F1.F2)+(J-2).Y(F 

1 .F2)-J) . J+7. J:COLOR=(12.7>3»0) :COLOR=(1 

2.0.0.4) : NEXT :N EXT :D(F1 , F2) =D ( F1 . F2 ) -K 

480 IFD(F1 .F2) >0THENRETURN 

490 PUTSPRITEF1*4+F2+1 ,(X(F1.F2).Y(F1,F2 

) ) .1 .7 : C0L0R9 : PRESET (10+P* 168. 165) : PRINT 

#1 .NA$(F1 . F2) : PRESET (40 + P* 168. 180) : PRINT 

#1 ."»***:'" : G0SUB61 0: PRESET (10+P*1 58. 20 0) 

:C0L0R7:PRINT#1 ."push key" :FORW=0TO1 :W=- 

STRIG(P) :NEXT:FF(F1)=FF(F1)+1: RETURN 

500 'DATA PRINT ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

510 COLOR 7:PRESET ( 1 0+PP*1 58 . 1 65 ) : PRINT 

#1 ,NA£(P,G) 

520 COLOR 2:PRESET 

#1 .USING"W:##" ;W(P 
530 COLOR 3:PRESET 

#1 ,USING"A:##";A(P 
540 COLOR 5:PRESET 

#1 ,USING"D:##";D(P 



(PP*158+65.190) 

-G) 

(10+PP*158. 190) 

.G) 

(10+PP*158>200) 

.G) 



PRINT 



PRINT 



PRINT 



550 COLOR 9:PRESET ( PP»1 58+65 . 1 80 ): PRINT 

#1 .USING"R:##";R(P,G) 
560 COLOR10:PRESET ( PP*1 58 + 65 . 200 ): PRINT 

#1."*: ":Z=VAL(MID$(" 630 630".SS(P.G) 
.1 ) ) :LINE(PP*1 58 + 84.20 1+Z)-(PP*1 58 + 90,20 
7-Z) .10 

570 COLOR 15:PRESET ( 1 0+PP*1 58 . 1 80 ) : PRIN 
T #1 ,USING"M:##";M 
580 RETURN 

590 'SOUND ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
60 S0UND8. 16-.S0UND6.31 :S0UND7. 17:SOUND1 
2.50:SOUND13.0:RETURN 

610 SOUND2.42:SOUND9.0:SOUND12.255:SOUND 
13.0:RETURN 

620 'SELECT SUB ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
630 LINE (102.YY)-( 152. YY+10) .15.BF,XOR:R 
ETURN 

640 'GAME OVER ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
650 LINE (0. 161 )-( 25 5. 211) . . BF : FORI=0TO4 
9:GOSUB600:GOSUB610:NEXT:COLOR7:PRESET(6 
0.170):PRINT #1, "Player ";P+1"; yaO'J!":G 
OTO670 

660 LINE (0. 161 )- (255,21 1 ) . . BF : C0L0R3 : PR 
ESET(44, 170) :PRINT#1 ,"U § t) tt 7* % 
S":FORJ=0TO2:FORI=15TO4STEP-1 :PLAY"08L16 
V=I ;C","06L16V = I;E"."07L16V=I ;G":NEXT:NE 
XT:FORI=0TO1 :I=1+PLAY(0) :NEXT 
670 C0LOR3: PRESET (77. 195) : PRINTtl , " Push 
space" :FORI=0TO1 : I=- (STRIG ( ) ORSTRIG ( 1 ) ) 
: N EXT : FORI = 0TO1 : FOR J =0TO3 : D ( I . J)=DW(I , J) 
:NEXT:NEXT:GOTO 730 

680 n*fy*y ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

690 PUTSPRITEP*4+G+1 , .C(0) :SWAPC(0) . C(1 ) 

:RETURN 

700 '=.Z*)\*V7 ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

710 GOSUB600:FORI=0TO40:FORJ=0TO1 : PUTS PR 

ITE0. (TX+1 -TY-5) , 7+J*8> J +5 : NEXT : NEXT : RET 

URN 

720 'MENU ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

730 SCREEN1 .1 : COLOR 1 5 : X=RND ( -TIME ) : PRINT 

SPC(72)"Ci:£$Sff) ohd) fcgtflO"SPC( 1 13) " 1 ... 

GAME START"SPC(80)"2 ... EDIT"SPC ( 86 ) "3 

... L0AD"SPC(86)"4 ... END"SPC ( 1 1 8 ) "zdK 

t t*A.fe<L7<i!i*SU":A = USR(0) 

740 A$=INPUT$(1 ) :A=VAL(A$) : IF A< 1 ORA >4THE 

N740ELSEONAGOTO760.790. 1080. 1130 

750 'GAME START1 ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

760 CLS:PRINTSPC(72)"T GAME START ]"SPC( 

113)"#(X>£$ UDl7<£*£u"SPC(113)"n>u£(1~30 

000)=" ; :A=USR(0) 

770 LINEINPUTA$:A=VAL(A$) : IFA< 1 ORA>300 00 

THEN730ELSEX=RND(-A-9999) :GOTO80 

780 'EDIT ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

790 CLS:PRINTSPC( 12)"C EDIT ] "SPC ( 47 ) " PL 

AYER=(1 or 2/exit=3)" ; :A=USR(0) 

800 A$= INPUTS (1 ) :P=VAL(A$)-1 :IFP=2THEN73 

0ELSEIFP<0ORP>1THEN790 

810 PR INTAS : RESTORE 1600: FOR J = 0TO3: RE ADM 1 

(J) >A1 (J) .D1 (J) ,R1 (J) ,W1 (J) 

820 B( J)=60-(M(P. J)-M1 ( J) )*10-A(P. J)+A1 ( 

J)-D(P.J)+D1(J)-(R(P.J)-R1(J))*5-W(P.J)+ 

W1 ( J) :NEXT 

830 PRINTSPC(68)"tfA.»K0) E»?»U< ( 1 0£l.*l>St>) " 

SPC(32) :FORI=0TO3 



m 
< 



73 



840 LOCATE0.7+I : PRINTMIDS ( "t±A.frA. l>*?l- 

^A-ttul*^ <S<#k ".1*8+1.8);"= ";NA$(P 

. I) ; :LOCATE10.7+I:LINEINPUTNA$(P.I) :IFLE 

N(NA$(P,I) ) >10ORNA$(P.I)=""THENLOCATE0.7 

+I:PRINTSPC(32) : GOTO840ELSENEXT 

850 CLS:GOSUB1150:PRINTSPC(40)"ttr>ZO = RE 

TURN" 

860 X=0:Y=0:A$="":SPRITE$(0)=CHR$(255) :P 

UTSPRITE0. (94+X*24,31+Y*16) .10:A=USR(0) 

870 S=STICK(0) :G=STRIG(0) : A$= INKEYS : IFS = 

0ANDG=0ANDA$=""THEN870 

880 X=X+(S=3)*(X<4)-(S=7)*(X>0) : Y=Y-G-(G 

»(Y=3)*4) :PUTSPRITE0. (94+X*24 , 31 +Y*1 6) .1 

0:IFS=1ORS=5THENONX+1GOSUB970,990,1010,1 

030. 10 50:LOCATE12+X*3,3+Y*2:PRINTUSING"# 

#";A:L0CATE27,3+Y*2:PRINTUSING"##";B(Y) 

890 IFSTRIG(0)THEN890ELSEIFA$< >CHR$(13)T 

HEN870 

900 LOCATE 0.20:PRINT"SAVE Lft*? (Y/N)": 

A=USR(0) 

910 A$=INPUT$(1 ) :IFA$="N"0RA$="n"ORA$="fc 

"ORA$ = "H."THEN730E*LSEPUTSPRITE0 , , 

920 CLS:FILES"*.FLT" 

930 GOSUB950:OPENA$+".FLT"FOROUTPUTAS#2: 

FORI=0TO3:PRINT#2.NA$(P.I) : PRINT#2 , M ( P > I 

).A(P.I),D(P.I),R(P,I),W(P,I):NEXT:CLOSE 

#2:BEEP:GOTO730 

940 'INPUT FILENAME ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

950 LOCATE . 22 : L INE INPUT" F ILE NAME=";A$ 

:IFLEN(A$) >80RA$=" "THEN LOCATE , 22 : PRINTS 

PC(31 ) :GOTO950ELSERETURN 

960 'EDIT SUB ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

970 IFS=1ANDB(Y) >9THENM ( P . Y ) =M ( P , Y ) + 1 :B( 

Y)=B(Y)-10ELSEIFS=5ANDM(P>Y) >M1 (Y)THENM( 

P.Y)=M(P,Y)-1 :B(Y)=B(Y)+1fl 

980 A=M(P,Y) :RETURN 

990 IFS=1ANDB(Y) >0ANDA ( P . Y )< 99THENA ( P . Y) 

=A(P, Y)+1 :B(Y)=B(Y)-1ELSEIFS=5ANDA(P,Y) > 

A1(Y)THENA(P,Y)=A(P.Y)-1:B(Y)=B(Y)+1 

1000 A=A(P.Y) :RETURN 

1010 IFS = 1ANDB(Y) >0ANDD(P.YX99THEND(P.Y 

)=D(P,Y)+1:B(Y)=B(Y)-1ELSEIFS=5ANDD(P,Y) 

>D1(Y)THEND(P.Y)=D(P.Y)-1:B(Y)=B(Y)+1 

1020 A=D(P.Y) :RETURN 

1030 IFS = 1ANDB(Y) >4ANDR ( P . Y X99THENR ( P . Y 

)=R(P.Y)+1: B(Y)=B(Y)-5ELSEIFS=5ANDR(P,Y) 

>R1(Y)THENR(P.Y)=R(P,Y)-1:B(Y)=B(Y)+5 

1040 A=R(P.Y) :RETURN 

1050 IFS = 1ANDB(Y) >0ANDW ( P , YK99THENW ( P , Y 

)=W(P,Y)+1 :B(Y)=B(Y)-1ELSEIFS=5ANDW(P.Y) 

>W1 (Y)THENW(P,Y)=W(P,Y)-1 :B(Y)=B(Y)+1 

1060 A=W(P,Y) : RETURN 

1070 'LOAD ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

1080 CLS:PRINT"PLAYER=(1 or 2/exit=3)";: 

A=USR(0) 

1090 A$=INPUT$(1 ) :P=VAL(A$)-1 :IFP=2THEN7 

30ELSEIFP<0ORP>1THEN1080 

1100 PRINTAS: PRINT: FILES"*. FLT" :GOSUB950 

1110 OPENA$+".FLT"FORINPUTAS#2:FORI=0TO3 

: INPUT#2.NA$(P.I) : INPUT#2 , M ( P , I ) ,A(P. I) , 

D(P,I),R(P,I),W(P,I) :NEXT:CL0SE#2 

1120 FORI=0TO3:B(I)=0:NEXT:GOSUB1150:PRI 

NT:PRINT"SC#*-$ *>t,7< £ vv £u" :A$ = INPUT$(1 ) :G 

OTO730 

1130 CLOSE:ONERRORGOTO0:END 

1140 'FLEET DATA ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



1150 CLS:PRINT" r 



— i 1 I it k »> O IMVI ATI DFI RGI WVl BSI" 

1160 FORI=0TO3:PRINT" I 1 1 (— 

—I 1 1 1 ": PRINT" l"+NA$(P, I)+STRING$(1 

0-LEN(NA$(P,I) ) ,32) ; :PRINTUSING" l##l##l# 
#I##I##I##I";M(P,I);A(P.I);D(P,I);R(P.I) 
;W(P. I) ;B(I) :NEXT 

1170 PRINT" 1 ' ' ' ' ' ' 

■"' : RETURN 

1180 'ERROR ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
1190 IF ERR=53 THEN IFERL= 1 1 1 0THENPRINT" 
r "A$".FLTjtt *r>St*A, au#*-t*L7<6»SO":B$=INP 
UT$(1 ) :RESUME730 ELSEPRINT'A'A.El^Wlbtt k*)i 
tJA," : IFERL = 1 1 00THENPRINT"SEM-£J>1-T< 6*20" : 
B$=INPUT$(1 ) :RESUME730 ELSE RESUME NEXT 
1200 IF ERR=70 THEN PRINT : PRINT" DISKSfevb 
IT 5tZ# J F-S»L,T<£*SU" :B$ = INPUT$(1 ) : RESUME 
1210 IF ERR=66 THEN CLOSE : KILLAS+" . FLT" : 
PRINT: PRINT"DISK#*l^tt U7^t SCJ!r*-*3>L7<£*S 
U":B$= INPUTS (1 ) :RESUME730 

1220 IF ERR=68 THEN PRINT : PRINT"DISK?< »£ 
Zhtt>£LT UtZit^t^LZilz^tO" :B$ = INPUT$(1 ) :RES 
UME 

1230 IF ERR=56 THEN LOCATE0 . 22 : PRINTSPC ( 
31 ) :PRINT:PRINT"7:7"flUl> r "A$" . FLTjti's;^?" ; 
:GOSUB950:RESUME 
1240 ONERRORGOTO0 

1250 'SYOKIKA ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
1260 RESTORE :A$="": FORI =0TO1 :FORJ=0TO15: 
READB$:B$=BIN$(VAL("&H"+B$) ) :B$=STRING$( 
8-LEN(B$) .48)+B$:FORK=1TO8:PSET(0+I*8+K- 
1 .0+J) .VAL(MID$(B$.K.1 ) )*7: NEXT: NEXT: NEX 
T 

1270 PSET(7.16) .7: PAINT (7. 3) ,4,7:SETPAGE 
0.0:RETURN 

1280 RESTORE 1330:FOR 1=0 TO 7:B$="":F0R 
J=0 TO 31:READ A$ : B$=B$+CHR$ ( VAL ( "&H" +A 
$) ) :NEXT:SPRITE$(I)=B$:NEXT 
1290 RETURN 
1300 ' hex DATA 

1310 DATA 01.06.08.30.40.80.80.80.80,80. 
80. 80, 40, 30, 08, 06, 00, C0, 20, 18,04,02,02,0 
2, 02, 02, 02, 02, 04, 18, 20, C0 
1320 ' battle ship 1 

1330 DATA 00,00,00,00,02,06,06,0F,3F.3F, 
00, 00, 00, 00, 00, 00. 00. 00. 00. 40, 40, 40, 40. 6 
0.F8,F8>00,00,00.00.00,00 
1340 ' battle ship 2 

1350 DATA 00,00,00,00.09.0B.0B,0F,3F,3F, 
00, 00. 00.00, 00, 00, 00, 00, 00. 00, 00. 00, 80, 8 
0>F8,F0,00,00.00,00,00,00 
1360 ' bom 1 

1370 DATA 01,02.02.01.07,05.03,07.05.07. 
02.00.0 0.0 0.00.00.80.78,CC.3C.74.D8,E0.5 
0.80.00.00.00.00.00.00.00 
1380 ' bom 2 

1390 DATA 00.00,00.01,03,05,03,06,06,05, 
03,00,00,00,00,00,00,00,C0.B0.50.F0.E0,C 
0,A0, 40. 00, 00, 00, 00, 00, 00 
1400 ' tama 

1410 DATA 00,00,00,00,00,01,03,03,01,00, 
00. 00.00, 00.00, 00.00, 00, 00, 00. 00. 80. C0.C 
0.80.00,00,00.00,00,00,00 
1420 ' E;Cc/7**1 
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1430 DATA 00, 00,05, 0A, 10,19. 1F. 17. 16.16. 

1F,1B,15,15.1D,0F,00,00,00,80-80,C0,40,4 

0>C0,C0,C0>40,40,40,C0,80 

1440 ' =7*i/7**2 

1450 DATA 00-00, 00, 00, 05. 0A, 08. 1C. 17, 17, 

1A,1A,1E,1E,1B,0F,00,00,00,00,00,80,40,C 

0,40,C0,C0,C0,C0,C0,C0,80 

1460 ' ?:>**9to 

1470 DATA 00,00,00,00,02,01,03,22,15,22, 

00,00,00,00,00,00,00,00,00,00,00,00,00,1 

0,A0, 20, 00, 00, 00, 00, 00, 00 

1480 ' 

1490 DATA 0,0, 0,0, 7.-11. 14,0, 7.11. 

,0, -7,11, -14.0, -7,-11 



1500 



NAME 



1510 DATA VSi: 

1520 DATA hiozo 

1530 DATA JSJSii:* 

1540 DATA »*#tt* 

1550 DATA ts£L 

1560 DATA Utin 

1570 DATA ***<! 

1580 DATA *o£**) 

1590 DATA 238-0,6, 231,11,6, 238,22.6.23 

1.33.6. 0,110,2, 7,121,2, 0,132,2, 7,14 

3,2 

1600 DATA 3,50,60,6,20, 5,30,40,5,30, 7, 

20,30,4,35, 10,10,25,4,39 
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TWIN BALL 



•Xr/'TK-W 




E53EE32/2+RAM32K BY mm%\fc 



► ffiOF73li46^-y 




BREM^ff5a©7-»Hx— ?caorn*f = i £¥?■=>, «»- 
fis;rA,-e<fc'isi.\> £fc> mwoMmva. ^crem*^©^ 
yg?-?£jRIBr5fc»ffl^v!Sffl»S£»&£A%toftru5© 
r. 3©fit;SSurjTSc/ur<^tsu 

10 'ABAAAIBBAAAACBAAAABJMNEKAACBAAAIBJMN 

ENAACBAABABJMNENAABDALHILBCAOFABAAAIBBAA 

AACBAACA6JMNEKAACBAACIBJMNENAACBAADABJMN 

ENAABDALHILBCAOFMJDOPACBAACAABAAAIMNFGAA 

MJNNCBKGNNNNHOAANNEGAEIANNHHAANNOFPNOBDK 

KHNNCBAABIMNENAADKKGNNCDMNENAAKPCDMN 

20 ' ENAADOAHCDMNENAAMNPKNLPOAAMCPLNJDKLN 

NNPOAACICBDKKJNNCDMNENAADKKINNCDMNENAAKP 

CDMNENAADOADCDMNENAAMNPKNLPOAAMCPLNJDKLL 

NNPOAACIBINNCLBIBEDKLMNNPOAACIACCDCDHOML 

HPCAAEBEBEBEBEHKMJNNFGAACBKKNNMNDHNIMLDP 

MLDPMLDPABAABIEPNNFGABCBKKNNCDMNDHNI 

30 ' POADNKFLNLPOLNNCFLNLMLDPMLDPMLDPCBAA 

AAGPCJCJCJCJCJAJCCLJNNMNEKAAMLEHCAAHCKLJ 

NNCLCCLJNNDMMLDPPODBMKOLNIPODCMKPKNIPODD 

MKAJNJPODEMKCANJPODFMKEONJPODGMKPLNJPODH 

MKFJNyPODIMKICNJPODJMKLCNJPODKMKODNJPODL 

MKPLNJPODMMKOONJPODNNKHFNKCBKENNPODP 

40 'NCPLNJDKLMNNPOAACIABCDDEMDPLNJDKIDNN 

NNHHAADKLENNNNHHABMDICNKDKLFNNNNHHAADKLG 

NNNNHHABMDICNKDKLMNNPOAAMKICNKDKLHNNNNHH 

AADKLINNNNHHABMDICNKDKLNNNPOABMKPLNJDMDC 

LNNNDKKJNNCBAEBLMNENAADKKINNCDMNENAADOAC 

CDMNENAADOADCDMNENAAMNLKNLMDDKNKDKLM 

50 'NNPOAAMKICNKMDPLNJMNHDNJDKKPNNDMDCKP 

NNMNLLNKDKMANNDNMKKONLDCMANNMDPLNJCKLJNN 

DOCAMNENAADOCACDMNENAAMJDKLMNNPOAACIANDK 

KPNNMGACDCKPNNMNLLNKBIMDCKLJNNDOGNMNENAA 

DOGOCDMNENAADKKPNNMGACDCKPNNMNLLNKMDPLNJ 

DKLMNNPOAACIAODKKPNNMGAEDCKPNNMNLLNK 

60 'MDFJNJCKLJNNDOGPMNENAADOHACDMNENAADK 

KPNNMGACDCKPNNMNLLNKMDPLNJDKLMNNPOAAMKPL 

NJMDICNKMNHDNJDKKONNDMDCKONNMNCNNLCBKENN 

DKLMNNPOAAMKAHNKCDHOPOADMKHFNKDKLMNNPOAA 

CIAFKPBOILBIACBOIBMNJDAAABDCNKCBDGNKBGAE 

AKFOADCDMNJDAABFCAPGBIAIAIALAMANBAID 

70 'ALAAPNOFNNOBNNHOAEEHOGABCIAFHIOOPOBI 

ADHIOOPMNNHHAENNEGAAIANNHHAAONFPMLCHPONA 

DICCNNHOAEEHOGAECIAFHIOOABBIADHIOOADNNHH 

AEBIANCBKENNDKLMNNPOAACIABCDDGAAPNOFNNOB 

DKLLNNPOAACAAKDOABDCLLNNNNCDMDNDNHKPDCLL 

NNDKLNNNPOAAMKAFNMDKLMNNPOABCAAHKPDC 

80 ' LMNNMDAFNMDOABDCLMNNNNCDMDNDNHDKKPNN 

POAKDIDGNGAKDCKPNNDKLANNDMPOAKNCNFNKDCLA 

NNBICDKPDCLANNDKLBNNDMPOAKCIAFDCLBNNBIBC 

DKLCNNDMDCLCNNKPDCLBNNCBKONNDEMNCNNLAGAE 

BBKPNNCBBEBIBKMGDAMNENAABDCLBAPGMJDKKONN 

POAKDIAPCBBOBIDODBMNENAADKKONNMGCGBI 

90 'AFDKKONNMGDACBBPBIMNENAAMJABELNLCBFD 

NLBGAIOFCBAADACIHMLFCAPLOBAKFOADCDMNJDAA 

BFCIMCBIOKAIAMAAANAAANAAANBAACGLAAFFAAEH 

AADKLMNNPOAACICJKPDCLNNNDCLMNNDONACBAEBL 

MNENAADKLONNDCKINNDKLPNNDCKJNNCBKJNNCDCD 

CDDGABCDDGABMDNDNHMNJAAAMNOFNLDKKONN 



100 'DNDCKONNMNALNLDKKONNPOAACIAGDOABDCM 

LNNMJDOADDCMLNNMJMNJAAAMNOFNLDOACDCMLNNM 

JCGACAGAPKPBOHBMNJDAABBAABDBLHKLDCAPLBOI 

PMNJDAABBAABDBLHKLDCAPLDOAIFIMNJDAABANNC 

FCANIMJKPDCLNNNCBAABLDONAMNENAACBAEBLDON 

AMNENAAMJNLJJOGCACIADDOABMJKPMJDKMINN 

110 'DNCICBDCMINNONFLMJNNDOAHMNEBABOGAEC 

AAJDOAIMNEBABOGABCAPHBLHKLDCAOJMDMPNHDOA 

CDCMINNKPMNNFAAPOABCIAPPOAFCICKPOADCIEFP 

OAHCIGEMDCHNNAGACCBDOBIDKMBNNIFIAGPMNEKA 

APOGBNCCHNNAFCIACBIOKDOADDCMENNBIFPAGACC 

BJOBKDKMBNNIFIAGPMNEKAAPOGBNCCHNNAFCI 

120 'ACBIOKDOBGDCMENNBIEADKMBNNPOBPMKCHN 

NMNBCNNCDCDCDMNEKAAPOGBDIAHPOINDAADMDCHN 

NDOABDCMDNNBIBNDKMBNNPOABMKCHNNMNBCNNMNE 

KAAPOGBDIAGPOINDAACBIGGDOPPDCMDNNDKMBNNG 

HDKMCNNGPMNMGAADOCAMNKCAAMNKCAADKMENNDCM 

CNNDKMDNNPOAAMKPMNMPOABCIAGDKMBNNDNBI 

1 30 ' AEDKMBNNDMDCMBNNKPDCMDNNDKMBNNGHDKM 

CNNGPMNMGAADOHJMNKCAADMMNKCAABIBFABDOBID 

KMCNNPOADCIADABJOBKDKMBNNCGAAGPAJMJDKMFN 

NPOABCIDAPOBPCICMDKMGNNCGAAGPCJCJCJCJCJA 

BNOBHBGAADKMFNNFPBJAJDKMHNNPOABCAAEABADA 

AAJMNEKAAPOGBDIAMPOINDAAIDKMHNNOOPODC 

140 'MHNNDKMFNNGHDKMGNNGPMNMGAADOCAMNKCA 

AMNKCAADKMHNNPOABCIAGDKMFNNDNBIAEDKMFNND 

MDCMFNNDKMFNNGHDKMGNNGPMNMGAADOHLMNKCAAD 

MMNKCAAMDMPNHAAAAIAFIHIGIABABPPPPAFAAAAA 

AAAGEGEHIHIDCBOAAAAAAAAAAHIGIAAAKBGAABGA 

PALABADAAAEAAAAAAAAAAAAAAAAAAAAAAAAAA 

150 CLEAR999,&HD74A:SCREEN1 . 2 . : COLOR1 5 . 

0,0:ONERRORGOTO1570:DEFINTA-Z:WIDTH32:D= 

&HD74A:DEFUSR=D:DEFUSR1=D+54:DEFUSR2=D+1 

21 :DEFUSR3 = D+133: DEFUSR4=342 : DEFSTRE : E = C 

HR$(27) :PRINTE"Y' -MOMENT!" :POKE-1103. 1 

160 DEFUSR5=126:KEYOFF:FORI=0TO52:POKED+ 

I.VAL("&H"+MID$C*DD2A76F6FD2180D7110700D 

D190E0E0674DD7E00DE418787878767DD7E01DE4 

184FD7700DD23DD23FD2310E5110800DD190D20D 

BC9" .1*2+1 .2) ) :NEXT:A = USR(-0) :A=USR5(0) 

170 ONINTERVAL=7GOSUB480:INTERVALOFF:A=U 

SR2(0) :SPRITE$(0) ="'***" :DIMA( 42) .A$( 27) 

.Z$(25) :FORI=0TO27:READA$(I) : NEXT: FOR 1 = 

T019:READA(I) : NEXT : RE ADAS . B$ . C$ 

180 FORI = 1TO8:VPOKE263+I.ASC(MID$C(00?] 

a.*" .1.1) )-33:VPOKE8455+I.VAL(MID$("7755 

4444". 1.1) )*16: NEXT: FORI =0TO42: FOR J=0TO7 

190 VP0KE776+I*8+J.VAL("&H"+MID$(A$(A(I) 

+(I>19)*(-I+15)) . J*2+1 .2) ) :VP0KE8968+I*8 

+ J,VAL("&H" + MID$(A$. I*8»-(K28)+J + 1 . 1 ) )* 

16:NEXTJ.I:FORI=320TO511 : VP0KE8192+I . VAL 

("&H"+MID$(B$.IMOD8+1 . 1 ) )*16 

200 A=VPEEK(I):VPOKEI.AORA/2:NEXT:FORI=5 

2BT0727:VP0KE8192+I.VAL(MID$(C$.IM0D8+1 . 

1))*16:A=VPEEK(I) :VP0KEI.A0RA/2:NEXT:F0R 

I=0TO127:VPOKE9192+I.87+19*(I>119) :NEXT 

210 A=USR1 (0) :ERASEA.A$:READA$:FORI=0TO1 

4:Z$(I)=MID$(A$.I*2+1 .2) :NEXT:FORI=0TO10 

:Z$(15+I)=CHR$(125+I) : NEXT : D=-8794 



-% 



< 



77 



220 CLS : FORI =0TO3: POKE D+ 1+9 . 0:NEXT: PUTS P 
RITE0. (0.208) :RESTORE640:FORI=16TO23:LOC 
ATE0:READA$:FORJ=1TOLEN(A$) : A=VAL ( MI D$( A 
$, J.I ) ) : LOCATE. I :IFA = 4THENPRINT" ":ELSE 
IFA=5THENPRINT" " ; ELSEPRINTZS ( A ) ; 
230 NEXT:NEXT:FORI=0TO10:PRINTE"M" : IF 1 = 
THENPRINTE"Y8:BALL!"ELSEIFI=5THENPRINTE" 
Y8*S ELECT LEVEL" ELSE IF I =6THENPRINTE" Y8*L 
EVEL" 

240 NEXT:L=5:X=0:SE=0:R=1 
250 S=STICK(0):IFX=0THENL=L+(S=5)*(L<10) 
-(S=1)*(L>1) : LOCATE 1 7 + 8* (SE=1 ) . 18:PRINTU 
SING"##" ;L 

260 K$=INKEY$: IFK$=CHR$(13)THEN310ELSEIF 
K$< >CHR$(24)ORSE = 1THEN280ELSESE = 1 :PRINTE 
"Y0;SELE" ; : FORI =1 T08 : FORJ=0TO30 : VPOKE 665 
6 + J.VPEEM6657 + J) : NEXT : PRINTE" Y0 >"MID$ ( " 
CT ROUND" .1.1) :NEXT 

270 PRINTE"Y2;R0UN" ; : FORI= 1T08 : FORJ=0TO3 
0:VPOKE6720+J.VPEEK(6721+J) : NEXT : PRINTE" 
Y2>"MID$("D 1 ",I.1):NEXT 
280 IFSE=1THENIFS=3THENX=1ELSEIFS=7THENX 
= 

290 IFSE=1THENPUTSPRITE0. (8-136*(X=1 ) .14 
4) , 7>0:IFX=1THENR=R+(S=5)*(R<8)-(S=1 )*(R 
>1) :LOCATE26.18:PRINTUSING"*#";R 
300 IFSTRIG(0)=0THEN250ELSE350 
310 B=0:A=0:FORI=11TO23:LOCATE0. I: PRINTS 
PC (31 ) : NE XT : PR INTE" Y0*LOAD- >GAME" : PRINTE 
"Y2*EDIT0R 

320 S=STICK(0) :IFS=1THENB=0ELSEIFS=5THEN 
B=1ELSEIFINKEY$=CHR$(13)THEN220 
330 IFSTRIG(0)THENONB+1GOTO340. 1000ELSEP 
UTSPRITE0. (64. 128+B*16) ,3.0:GOTO320 
340 A=0:F$="":FL$="" :PRINTE"Y. "SPC(160) 
:PUTSPRITE0. (0.208) : LOCATE . 14 : F ILES"* . E 
DI":IFA=1THENGOTO340ELSEIFA=2THEN310ELSE 
PRINT: INPUT" NAME" ; F$ : IFLEN ( F$ ) >80RF$=""T 
HEN310ELSEFL$=F$+" .EDI" : OPENFLSFORINPUTA 
S#1 :R=0:IFA=1ORA=2THENCLOSE#1 :GOTO310 
350 L=256+128*(11-L) :PUTSPRITE0. (0.208) : 
FORI=0TO22:PRINTE"M" :NEXT 
360 IFR<9THENONR+1GOSUB370,660.710.760.8 
00.840.880.920.950:GOTO390ELSEPRINTE"Y%+ 
ALL CLEAR!"E"Y' (CONGRATULATIONS !": A=USR4 
(0) :A$=INPUT$(1 ) :POKED+8.5:GOTO220 
370 CLS:FORI=0TO703: INPUT#1 .A 
380 VPOKE6176+I . A : NEXT : FORI=0TO36 : INPUT* 
1 .A-.POKED+I . A: NEXT: CLOSE* 1 
390 POKED+35>LMOD256:POKED+36.L/256:POKE 
D+22.0:POKED+23.0:RX= PEEK (D+27) :RY=PEEK( 
D+28) :XX=PEEK(D) : YY=PEEK ( D+1 ) 
400 GOSUB540:LOCATEPEEK(D+27)-1 ,PEEK(D+2 
8)-1 . 0:PRINT"yz":PUTSPRITE0. (PEEK(D) .PEE 
K(D+1 ) ) ,7,0:LOCATEPEEK(D+31 ) - 1 . PEEK ( D+32 
)-1 :PRINT"-C ! ":FORI=0TO9:A( I ) =VPEEK ( 6445 + 
I) :NEXT:A=USR4(0) :PRINTE"Y)- READY! ": 
410 IFINKEY$=""THEN410ELSEFORI=0TO9:VPOK 
E6445+I.A(I) :NEXT 

420 A=USR3(0) : A$="T1 20V1 5S0M5 00 00O5" : PLA 
YA$. A$.A$:ONPEEK(D+37)GOTO430 .45 0.510 
430 FORI=0TO9:A(I)=VPEEK(6411+I) : NEXT: PR 
INTE"Y(+LOST BALL ! " : LOCATE PEEK ( D + 27) - 1 .P 
EEK(D+28)-1 : PRINT" "; : POKE D+27 , RX : POKED 
+28.RY:POKED+30.RY:A=USR4(0) 
440 IFINKEY$=""THEN440ELSEFORI=0TO9:VPOK 
E641 1+I.A(I) :NEXT:GOSUB530:GOTO400 
450 LOCATE8.8:PRINTUSING" ROUND *# CLEAR 
" ; R; : AA=0 



460 PLAY"L24G+D+C04G+05CD+A+FD04A+05DF06 
M15000C16C7C16C16C8." . " L24D+C04G+D+G+05C 
FDO4A+FA+O5M15000DG16G7G16G16G8." ."L16C4 
D4M10000EE7EEE8." : FORI =0TO25 00 : NEXT 
470 PLAY"06L64" : A=TIME/850+R«1 0+L/32 : LOC 
ATE8.10:PRINTUSING" BONUS ##*#0";A;:B= 
PEEK ( D+1 2)*1000+PEEK( D+1 1 )*100+PEEK( D+1 
)*10+PEEK(D+9) :INTERVALON:FORI=1TOA:C=B+ 
I:LOCATE16,0:PRINTUSING"#####";C:NEXT:GO 
TO490 

480 PLAY"C":RETURN 

490 INTERVALOFF:IFPEEK(D + 8X5THENPOKED + 8 
.5ELSEIFB<=1000ANDB+A=>1000THENPOKED+8.P 
EEK(D+8)+1 :LOCATE31 , : PRINTUSING"**" ;PEE 
K(D+8) ; 

5 00 POKED+12.C/10 00:POKED+11 . (CMOD1000)/ 
100:POKED+10. (CMOD100)/10:POKED+9,CMOD10 
:FORI=0TO999:NEXT:FORI=0TO21 :LOCATE0,1 :P 
R INTE" M": NEXT :R=R+1 : IFR= 1 THEN220ELSE360 
510 LOCATE11 >8:PRINT" GAME OVER " 
520 PLAY"L2D1 . . D8D8DCD1 " . "L2EFG . A8G8FEF1 
" :FORI=0TO9999:NEXT:POKED+8.5:GOTO220 
530 POKED. XX :POKED+1 , YY : POKE D+2 . PEEK ( D+2 
4) :POKED+3.PEEK(D+25) :P0KED+4.1 :POKED+5, 
1 :P0KED+6.1 :P0KED+7.1 : POKE D+37 , : RETURN 
540 LOCATE1 , : PRINTUSING" ROUND ## SCORE 
BALL ##":R;PEEK(D+8) ; :F0RI=17T0 
20 : LOCATE I. : PRINTUSING"*"; PEEK (D + 29- 1) ; 
:NEXT:RETURN 
550 ' CHARACTER DATA 

560 DATA00008BACAFAC5400.000077CDF7D4CC0 
0.0 0F8282A2A2A2500.00F9ADADABAB7900.00 
000000000000. 00FF87BFBF87FF00.00FEC2FAFA 
C2FE0 0.0032521 2 121 2790 . 005E525E505090 00 
.00787F3F3F7F7800.001EFEF8F8FE1E00.00FC8 
081F2878890.00 51D95D55D75351 .0F0F0F0FFFF 

FFFFF 

570 DATAFFFFFFFFF0F0F0F0. 000000000000000 

, FFFFFF |r F 0F0F0F0F.F0F0F0F0FFFFFFFF.FFFF 

FFFF00000000.00000000FFFFFFFF.FFFFFFFFFF 

FFFFFF , 0000000000000000, F0F0F0F0F0F0F0F0 

.0F0F0F0F0F0F0F0F.F0F0F0F000000000.0F0F0 

F0F00000000.000000000F0F0F0F.00000000F0F 

0F0F0 

580 DATA0. 1.0.1.0.1 .2.3.5.6.4.4.5.6.5.6. 

5.6.5.6 

590 ' CHARACTER COLOR DATA 

60 DATA00775 5500055 544000332220 00222CC0 

00FFEEE000EEEEE0033322200222CCC00FFFBBB0 

0BBBAAA000 000 000 00000000 07775 550 55 54440 

03332220 0222CCC00999888008886660 0FFFBBB0 

0BBBAAA00FFFFFF00FFFFFF00777555005555440 

0F77555005 5544400333222202222CCC 

610 DATA33322CCC. 77755444 

620 DATAmnopqrstuvvxabcdef ghi j k L yz-C! 

630 'TITLE DATA 

640 DATA5000 5 141 41 52253443. 54054141 41 424 

3343.54054141414243343.54054141414243535 

3.5404415151542435353.540441515154243433 

,540441515154243433.54044111142253443 

650 'ROUND 1 DATA 

660 RESTORE680:FORI=0TO17:READA.B:POKED+ 
A, B: NEXT: PRINTE" Y! "STRINGS ( 37 , " *" ) "~"ST 
RINGS ( 20. "*")"♦+ + «•«•<•"; : FOR I = 3T022: LOCATE 
0. I: PRINT" * ++•* + $" : :L0CATE26: PRINT" «y + ** + 
" ; :NEXT:FORI=3TO9:READA$:FORJ=0TO9:LOCAT 
EJ*2+6.I:PRINTZ$(ASC(MID$(AS.J+1 . 1 ) )-65) 
:NEXTJ . I 
670 RETURN 
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680 DATA0. 128.1 ,88.2.120.3-104,13.100.14 

,100,15.120.16,120,17.50.18.30,24,120,25 

, 1 04 , 26 , 38 . 27 , 1 , 28 , 22 , 30 , 22 , 31 , 1 5 . 32 . 1 1 

690 DATABBCFGHICBB.ABBCCCCBBA.AABBCCBBAA 

, MAEBDDBE AN . MMABKKBAMM . MMMAJ J AMMM . MMMMAA 

MMMM 

700 'ROUND 2 DATA 

710 RESTORE740: FORI =0TO1 6: READA, B:POKED+ 

A,B:NEXT 

720 FORI=1TO9:LOCATE0,I:PRINTSTRING$(10- 

I,"<.")"~i>"SPC(8+I*2)"->*"STRING$(8+I,"*") 

; ■NEXT:FORI = 10TO12:LOCATE0,I:PRINT"*S"SP 

C ( 28 )"*>«■" : :NEXT:FORI=0TO8:LOCATE0,I+13:P 

RINTSTRING$(I+1."*")"¥s"SPC(26-I*2)"*>"S 

TRING$(I+1 ." + ") : :NEXT 

730 PRINT"*-**-*******? gh s******** 

**"E"Y!/gh"; :FORI=0TO1 : A= 1*2 : FOR J = 0TO2 : F 

ORK=0TO1 1+J+A-A*J :L0CATE4-J+A*J+K*2-A.8+ 

J+I*4:PRINTZ$(A+J-A*I) ;: NEXTK . J . I : RETURN 

740 DATA0.128- 1 > 1 36 ,2 , 128 , 3 , 1 36 , 4 . 1 . 5 . 1 . 

6,1 ,7,1 .24,128,25,136,26,78,27,16,28,22, 

29,0,30,22.31 . 16,32,12 

750 'ROUND 3 DATA 

760 RESTORE780:FORI=0TO20: READA, B: POKE D+ 

A,B:NEXT:FORI=0TO1 : LOCATE , 2+1 9*1 : PRINT" 

kkkk"SPC(24)"kkkk"; : NEXT : PRINTE" Y# **** 

$4.4.4.*4.+***4"SPC( 10) "S* ****" ; : PRINTE "Y4 + 

***£"SPC(10)"->********** t '*«"'' + + " ; 

770 FORI=4TO19:LOCATE0, I : PRINT"**** £"SPC 

( 10)" *>"SPC( 10) "** ****": :NEXT:PRINTE"YS&q 

rqrqrqr"E"YX'opopop"E"Y&(mnmn"E"Y' )gh"E" 

Y31qrqrqrqr"E"Y22opopop"E"Y13mnmn"E"Y04g 

h"E"Y6)ab"E"Y!4cd": RETURN 

780 DATA0.72, 1 , 1 20 , 2 , 1 64 , 3 , 80 , 4 , 1 , 5 , 1 , 6 , 

255.7,255,13,164,14,120,15,78,16,64,24,1 

64 , 25 , 80 . 26 , 1 8 . 27 , 1 , 28 . 22 , 29 , , 30 . 22 , 31 

,10,32, 1 1 

790 'ROUND 4 DATA 

800 RESTORE820:FORI=0TO1 1 : READA, B : POKED+ 

A,B:NEXT:PRINTE"Y! "STRINGS (36 ,"*") " "ST 

RINGS (22 , "*" ) "*++++**: FORI=3T021 : LOCATE0 . 

I : PRI NT" ****$"SPC( 22 )"*>****": NEXT: FORI =3 

T015STEP4: LOCATE 5, I : PRINT"opopopopuv uv 

opopopop":NEXT:FORI=4T016STEP2 

810 LOCATE5 , I :PRINT"qrqrqrqruv uvqrqrqr 

qr "-.NEXT: PRINTE" Y#/gh"; : RETURN 

820 DATA0, 126,1 ,128,2,126,3,128,24,126.2 

5,128.26.88,27,16.28.22.30.22.31 .16.32.1 

4 

830 'ROUND 5 DATA 

840 RESTORE860:FORI=0TO8:READA.B:POKED+A 

,B:NEXT:PRINTE"Y! "STRINGS (35 ,"*") " "STR 

ING$( 24, "*")"♦***"; :FORI=3TO22:LOCATE0,I 

• PRINT" ***S"SPC( 24 )"***+"; :NEXT:FORI = 0TO 

2 • FOR J = 0TO I: LOCATE 15-4*1 +8* J, 3 + 4*1: PR INT 

"mn"; : LOCATE 14-4*1 +8* J ,4+4*1 : PRINT" opop" 

850 LOCATE 13-4* I +8* J, 5 + 4*1 : PRINT"qrqrqr " 
; : LOCATE 13-4*1 + 8* J. 6 + 4* I: PRINT"******"; : 

NEXT J. I: RETURN 

860 DATA0. 124.1 ,128,26,36,27,16,28,22,29 
,0,30.22.31 . 16.32.16 
870 'ROUND 6 DATA 

880 RESTORE900:FORI=0TO11 : READA , B : POKED+ 
A, B : NEXT: PRINTE" Y!/gh"E"Y6.gh": FORI =2T02 
1 • LOCATE0, I: PRINT" ***"SPC( 25 )"* + **": NEXT 
•FORI=0TO2:FORJ=0TO1 : FORK=0TO6 : LOCATE7+7 
*I,3+K+11*J:PRINT"**S":NEXTK,J,I 



890 FORI=0TO1 :FORJ=0TO1 : FORK=0TO7 : A= 1 0-7 

*I+14*J:LOCATEA,3+K+10*I:PRINTZ$(KMOD3) : 

:LOCATEA+2:PRINTZ$(KMOD3) ; : NEXTK , J , I : FOR 

I =0TO2 : L0CATE7 + 7*I ,10: PRINT" «>#*" ; : LOCATE 

7+7*1, 13:PRINT"**«"; : NEXT : PRINTE" Y4#opop 

"E"Y41opop" :RETURN 

900 DATA0,86,1 ,126,2,198,3,126,24,198,25 

, 1 26 , 26 . 64 , 27 , 1 2 . 28 , 22 , 30 . 22 , 3 1 , 1 2 . 32 . 1 2 

910 'ROUND 7 DATA 

920 RESTORE930:FORI=0TO8:READA,B: POKED+A 

, B: NEXT: FOR I=0TO1 : LOCATE0 , 2+ 1 9*1 : PRI NT" k 

kkkkk"SPC(19)"kkkkkkk" : NEXT : FORI =3TO20 : L 

OCATEI+1 , I :PRINT"mnuvmn" ; : NEXT: RETURN 

930 OATA0.80.1 ,104,26,36,27,16,28,22,29, 

0,30,22.31 .16,32,21 

940 'ROUND 8 DATA 

950 RESTORE980:FORI=0TO16:READA,B:POKED+ 

A.B:NEXT:FORI=1TO22:LOCATE0, I : PRINT"**** 

"SPC (24 )"****": :NEXT:FORI=0TO2:LOCATE4,3 

+6*1 :PRINT"****"SPC( 16) "****" : : LOCATE4.7 

+ 6*1 :PRINT"*+^"SPC( 16) "♦♦♦♦" : :NEXT 

960 FORI=0TO1 :FORJ=0TO6:LOCATE15,3+J+11* 

I • PRINT"**," ; :NEXT J. I : PRINTE" Y!/Ss"E"Y6/$ 

t"E"Y*/¥>"E"Y-/~*"E"Y!+ab"E"Y!3cd"E"Y./g 

h": :FORI = 0TO2:FORJ = 0TO2:LOCATE4.4+J + 6*I : 

PRINTZ$(I)Z$(I) ; :LOCATE24:PRINTZ$(2-I)Z$ 

(2-1) ; :NEXT 

970 LOCATE4,8+6*I:PRINTZ$(I)Z$(I) I :LOCAT 

E24:PRINTZ$(2-I)Z$(2-I) : : NEXT : FORI =0TO1 : 

LOCATE4, 2+ 19*1: PRINT" kkkkk": :LOCATE23:PR 

INT"kkkkk"; :NEXT:RETURN 

980 DATA0,88,1 ,112,2,160,3,112,13,160,14 

,112,15,88,16.112,24,160,25,112.26,48.27 

, 1 6 , 28 , 22 , 29 , > 30 , 22 , 31 , 1 6 , 32 , 1 2 

990 ' TWIN BALL EDITOR Version 1.00 

1000 CLS:DEFFNZ(SX,SY)=VPEEK(6144+SX+SY* 

32) :GOSUB1500 

1010 DIMQ(36) :RESTORE1550:FORI=0TO36:REA 

DQ(I) :NEXT:A$="":SV=0 

1020 PRINTE"Y lEDITOR VER1.0 FILE"::MA$= 

" DEL SAVE LOAD LOCATE" : MB$=SPACE$ ( 23 ) 

:PRINTE"Y7!"MA$; : A$="" : FORI =0TO23 : A$=A$+ 

CHR$(VAL("&H"+MID$("FF808080808080FF0000 

000000000000FF0101 01 01 0101 FF", 1*2+1 ,2)) ) 

:NEXT:SX=10:SY=10:FORI=1TO4:KEY(I)ON:NEX 

T:KEY(10)ON 

1030 SPRITESd )="■»»»»»*■" :SPRITES(2)=A$ 
■SPRITE$(3)="*)9"+CHR$(160)+CHR$(144)+"i>" 
+CHR$(4)+CHR$(2) : Z$ ( 1 1 ) ="AB" : PRINTE" Y79> 
mn" ; : ONKEYGOSUB1 200 , 12*30 , 1280 , 1360 , 

,1540 

1040 S=STICK(0) :SY=SY+(S=5)*(SY<22)-(S=1 

)*(SY>1) :SX=SX+(S=3)*(SX<31-SV)-(S=7)*(S 

X>0) :PUTSPRITE0,(SX*8.SY*8).15.SV+1 : K$=I 

NKEYS 

1050 IFK$OCHR$(9)THEN1100 

1060 IFSV=0THEN1080ELSEBC=BC+1 :IFBC=12TH 

ENBC=0 

1070 PRINTE"Y7:"Z$(BC) : : GOT0 1100 

1080 WC=WC+1 :IFWC=16THENWC=0ELSEIFWC=2TH 

ENWC=3 

1090 PRINTE"Y79"CHR$(125+WC) ; 

IFK$=CHRS(27)ANDSX<31THENSV=SVX0R1 

IFSTRIG(0)=0ORFNZ(SX.SY)O32ORFNZ(S 

SY)O32THEN1150 

IFSV=0THEN1140 

LOCATESX.SY:PRINTZS(BC) ; :GOTO1150 

LOCATESX,SY:PRINTCHR$(125+WC) ; 

IFKS< >CHR$(13)THEN1040 



1 100 
1110 

x+sv 

1120 
1130 

1 140 
1150 



O 

'ft 



it 



i 

i 



m. 
< 



79 



1160 A=FNZ(SX,SY) :B=FNZ(SX+1 .SY):IFSV=0T 

HEN1180 

1 170 IFA+1=BANDAM0D2=1ANDA<125THENL0CATE 

SX.SY:PRINT" " ; : G0T01 040ELSE1 040 

1180 IFA>124THENL0CATESX.SY:PRINT" " ; : GO 

TO1040ELSE1040 

1190 * DEL FUNCTION 1 

1200 GOSUB1500:PRINTE"Y7!"MBS; :A=USR4(0) 
:PRINTE"Y7#DELETE OK? ( Y/N ) " ; : A$=INPUT$ ( 
1) :IFA$="Y"ORA$="y"THENGOSUB1520:FORI=1T 
07:PUTSPRITEI. (0,208) :NEXT 
1210 PRINTE"Y7!"MA$; : GOSUB1 51 : RETURN 

1220 ' SAVE FUNCTION 2 

1230 GOSUB1500:PRINTE"Y7!"MB$; :A=USR4(0) 

:PRINTE"Y7!SAVE OK? ( Y/N ) " : : A=USR4 ( ) : A$ 

= INPUT$(1) :IFA$< >" Y" ANDASO"y "THENPRINTE 

"Y7!"MA$; :GOSUB1 510: RETURN 

1240 F$="":A=0:VM=1 :GOSUB1 500 : PRINTE" Y7 ! 

SAVE NAME " ; : LOCATE1 9 . : INPUTFS : I FF 

$=""ORLEN(F$) >8THENPRINTE"Y7!"MA$; :PRINT 

E"Y 3"SPC(13) ; :GOSUB1510:RETURN 

1250 FL$=F$+".EDI":O(26)=0:OPENFL$FOROUT 

PUTAS#1:IFA>0THENCLOSE#1 : GOT01 240ELSEIFD 

SKF(0K8THENPRINTE"Y7!DISK FULL ! " ; : A$ = IN 

PUT$(1) : CLOSE* 1 : GOTO1240ELSEFORI = 0TO703 : 

A=VPEEK(6176+I):IFA=65THENA=107ELSEIFA=6 

6THENA=108ELSEIFA=109ORA=111ORA=113THENQ 

(26)=Q(26)+1 

1260 PRINT#1 ,A:NEXT:FORI=0TO36:PRINT#1 ,Q 
(I) :NEXT:CLOSE#1 :PRINTE"Y 3 ":GOSUB1510: 
PRINTE"Y7!"MA$; : RETURN 

1270 ' LOAD FUNCTION 3 

1280 GOSUB1500:PRINTE"Y7!"MB$; :A=USR4(0) 

:PRINTE"Y7$L0AD OK? ( Y/N ) " ; : A$=INPUT$ ( 1 ) 

: IF A$<>" Y"ANDASO"y "THENPRINTE "Y7!" MAS; : 

GOSUB1510:RETURN 

1290 A=0:GOSUB1520:PRINTE"Y! PROGRAM OR 

DISK? (P/D)" 

1300 ON(INSTR("PpDd" , INPUTS! 1) )+1 )/2+1GO 

TO1300. 1310. 1320 

1310 INPUT"ROUND NUMBER" : C: IFC< 1 0RO8THE 

N1310ELSEGOSUB1520:ONCGOSUB660.710.760.8 

00,840,880,920,950:GOSUB1510:PRINTE"Y 5R 

0UND-"CHR$(48 + C) ; : PRINTE" Y7 ! "MAS ; : FOR 1=0 

T036:Q(I)=PEEK(D+I) -.NEXT: RETURN 

1320 A=0:F$="":FL$="": FILES"*. EDI" :IFA=1 

THEN1320ELSEIFA=2THENGOSUB1510:GOSUB1520 

•RETURNELSE PRINT: INPUT" LOAD NAME" ;F$: IFF 

$=""ORLEN(F$) >8THENGOSUB1520:PRINTE"Y7!" 

MAS; :GOSUB1510:RETURN 

1330 FL$=F$+ ".EDI": OPEN FL$FORINPUTAS#1 :I 

FA=1THENCLOSE#1 : GOT01 320ELSEIFA=2THENCLO 

SE#1 :GOSUB1510:GOSUB1520:RETURNELSEFORI= 

0TO703:INPUT#1 . A: IFA=1 07THENA=65ELSEIFA= 

108THENA=66 

1340 VP0KE6 176+1, A: NEXT: FORI =0TO36: INPUT 

#1,Q(I) :NEXT:CLOSE#1 : GOSUB1 51 : PRINTE" Y 
5"F$; :PRINTE"Y7!"MA$; : RETURN 

1350 "LOCATE FUNCTION 4 

1360 GOSUB1500:PRINTE"Y7!"MB$; :PRINTE"Y7 

&LOCATE MODE"; :LM = 1 : X=96: Y=96 : FORI=1 T07 : 

PUTSPRITEI. (0,209) :NEXT 

1370 S=STICK(0) :Y = Y+(S = 5)*(Y<176)-(S = D* 

(Y>8) :X=X+(S=3)*(X<248)-(S=7)*(X>0) 

1380 IFINKEY$=CHR$(9)THENLM=LM+1 : IFLM=8T 

HENLM=1 :GOTO1410 

1390 ON LMGOSUB 1420. 1430 , 1440. 1450. 1460. 1 

470- 1490 



1400 IFINKEY$OCHR$(13)THEN1370 

1410 PRINTE"Y7!"MA$; : GOSUB1 51 : RETURN 

1420 PUTSPRITE7. (X.Y),7.0:Q(0)=X:Q(1)=Y: 

RETURN 

1430 PUTSPRITE6. (X,Y). 3, 0:0.(2) =X:Q(3)=Y: 

:Q(24)=X:Q(25)=Y:RETURN 

1440 PUTSPRITE5. (X,Y). 7. 3:0.(13) =X:Q(14) = 

Y:RETURN 

1450 PUTSPRITE4. (X.Y).3.3:Q(15)=X:Q(16)= 

Y: RETURN 

1460 PUTSPRITE3. (X,Y). 14. 3:0.(17) =X:Q(18) 

=Y:RETURN 

1470 PUTSPRITE2. ( ( X*8 ) *8 . ( Y*8) *8) - 1 5 . 2 : Q 

(27)=X/8+1 

1480 IFY>104THENQ( 28) =22: 0(30) =22: RETURN 

ELSEQ(28)=3:Q(30)=3:RETURN 

1490 PUTSPRITE1 , ( (X¥8)*8. (Y¥8)*8) .3.2:Q( 

31)=X/8+1 :Q(32)=Y/8+1 : RETURN 

1500 FORI=1TO4:KEY(I)OFF:NEXT:KEY(10)OFF 

:RETURN 

1510 FORI = 1T04:KEY( DON : NEXT : KEY ( 1 ) ON : R 

ETURN 

1520 CLS:PRINTE"Y 1EDITOR VER1.0 FILE 
PRINTE" Y71 "MAS; : PRINTE" Y79"CHR$ ( 1 25+WC) " 
"Z$(BO ; :PUTSPRITE1 . (0.208) -.RETURN 

1530 ' EXIT FUNCTION 10 

1540 GOSUB1500:PRINTE"Y7!"MB$: :PRINTE"Y7 
SEXIT OK? (Y/N)"; :A=USR4(0) : AS=INPUT$ ( 1 ) 
•IFA$="Y"ORA$="y"THENFORI=0TO7:PUTSPRITE 
I, (0,208) :NEXT:ERASEQ:Z$(10)="iJ":Z$(11) 
="kL":RETURN220ELSEGOSUB1 510: PRINTE" Y7!" 
MAS; :RETURN 

1550 DATA128.88. 120. 104.1 . 1 , 255 , 255 , 5 , , 
0,0, 0,100, 100, 120. 120. 50- 30. 0.0. 0,0. 0-12 
, 1 04 , . 1 , 22 , > 22 , 1 5 , 1 1 , 1 > 3 , . 4 

1560 'ERROR 

1570 B=CSRLIN:IFVM=1THENPRINTE"Y6 " 

1580 A=0:IFERR=53THENPRINT"FILE NOT FOUN 

D! ";:A=2 

1590 IFERR=68THENPRINT"WRITE PROTECTED!" 

; :A=1 

1600 IFERR=70THENPRINT"DISK OFFLINE! 

; :A = 2 

1610 IFERR=56THENPRINT"BAD FILE NAME! " 

; :A=1 

1620 IFERR=60THENPRINT"FORMAT ERROR! 

; :A = 2 

1630 IFERR=69THENPRINT"DISK ERROR! 

; :A = 2 

1640 IFA=0THENPRINT"LINE:"ERL: ERRORERR 

1650 IFVM=0THENPRINT:PRINT"HIT ANY KEY" 

1660 C=USR4(0) :A$=INPUT$(1 ):F$="":FL$="" 

1670 IFVM=1THENVM=0:RESUMENEXTELSELOCATE 

0.B: PR I NTS PC (63) ; :RESUMENEXT 
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OLYMPIA MACHINE SIMULATION 

FUNNY4B0Y 



EE32/2+VRAM64K BY LEMON SONG SOFT 



►ffiTOaso^-y 



••• OLYMPIA MACHINE SIMULATION 

••• FUNNY+BOY ••• 

FOR MSX FAN ••• 

<c)1991 LEMON SONG *•• 
20 KEYOFF:SCREEN0.2.0:WIDTH40:COLOR15,1 . 
5-DEFINTA-Z:PRINT"KEYC0] or JOYSTICKC 1 3" 
:A$=INPUT$(1 ) :IFA$="0"ORA$="1"THENJO=ASC 
(A$)-48ELSE20 

30 PRINT"BODY COLOR" :PRINT"GREENC0: BLUE 
Ci: YELLOWC2]":A$=INPUT$(1 ) : IFA$=" 0"THEN 
BC=2ELSEIFA$="1"THENBC=4ELSEIFA$="2"THEN 

BC = 10ELSELOCATE . 1 :GOTO30 

40 SCREEN2:0PEN"GRP:"AS#1 : R=RND ( -TIME ) : D 
IMCC(11),R1(23) ,R2(23).R3(23).C1(23),C2( 
23) ,C3(23) :PLAY"S0M3000T255L64":ONSTOPGO 
SUB1440 :STOPON 

50 ' GRAPHIC ' 

60 FORI=0TO11 :READX1 , Y1 . X2 . Y2.C : LINE (X1 . 
Y1)-(X2.Y2) ,C,BF:NEXT:FORI=115T0135STEP5 
•LINE (8. I) "(160. I) , 15:NEXT:DRAW"BM55.125 
C2E13R72F13G13L72H13":PAINT(56.125) .2 
70 LINE (164.62) -(182.80) . 1 5 . B : FORI=0TO6: 
READX1.Y1.X2.Y2.C:LINE(X1.Y1)-(X2,Y2).C: 

NEXT 

80 FORI = 0TO4:A=VAL("&H"+MID$("8A4A8". 1+1 

,1 )) -FORK=0TO4:FORL=0TO1 : PSET ( K*7+24+L . I 

#20 + 17) ,A:PRINT#1 . MID$ ("3MED . 2MED . 1 MED .2 

MED 3MED.",I*5+K+1 .1 ) : NEXT : NEXT : FORJ=63T 

01 46STEP83: CIRCLE (J. 1*20+20) ,2.A:PAINT(J 

,1*20+21 ) ,A:NEXT:NEXT 

90 FORI=0TO4:READX.Y.R.C:CIRCLE(X.Y) -R.C 

• PAINT (X.Y) ,C: NEXT: CIRCLE (170. 98) ,9,1 : CI 

RCLE(180,125) .7.1 : CIRCLE (180. 125) ,4.1 : LI 

NE(180.120)-(180.123) .1 

100 FORI =80TO130STEP25: CIRCLE (I. 100) .9,1 

3,, . 7: PAINT (I, 100) ,13:PSET(I-1 ,97) .13:P 

RINT#1 ,"S": NEXT: PRESET (30. 120) :PRINT#1 ." 

110 FORI=0TO1 :COLOR7:PRESET(154+I.26) : PR 
INT#1 ," BIG": PRESET (152+1 .82) :PRINT#1 ."OU 
T J ":C0L0R11 : PRESET ( 1 54+1 . 38 ) :PRINT#1 ,"B0 
NUS": PRESET (170+ I .90) :PRINT#1 ,"rIN":F0RJ 
=0TO1:COLOR10-J-I: PRESET (164-1- J.50+I):P 
RINT#1 ,"777":NEXT:NEXT 

120 FORI=20TO180STEP16:FORJ=150TO182STEP 
16: CIRCLE (I, J) , 8 , BC : PAINT ( I . J ) ,BC:NEXT:N 
EXT-LINE(64.164)-(144.179) .BC+1 . BF : COLOR 
1 :FORI=0TO1 :PSET(70+I,170) :PRINT#1 ."FUNN 

YtBOY" :NEXT 

130 COLOR15:FORI=0TO1 : PSET (72+1 > 14 ) .1 :PR 

INT#1 ."LEMON": PSET (104+ I. 22) , 1 :PRINT#1 ." 

SONG" ■ NEXT :C0L0R7: DRAW" BM208, 16": PRINT* 1 

, "MEDALS": DRAW" BM208, 40" :PRINT#1 ,"BIG:": 

DRAW"BM232,24":COLOR15:PRINT#1,"250":DRA 

W"BM248,40":PRINTt1 ,"0" 

140 ' SPRITE " 



:GOSUB1160 

' MAIN " 

IN=3:IFSTICK(JO)=1THENGOSUB440ELSE22 



150 FORI=0TO12:READA$:FORJ=0TO31 :VP0KE14 

336+I*32+J>VAL("&H"+MID$(A$. J*2+1 ,2) ) :NE 

XT:NEXT:SPRITE$(30)=STRING$(32, 170) :D$=C 

HR$(0) :E$=CHR$(2) : F0RI=1 3T022 : RE ADAS : FOR 

J=1T016:B$=MID$(A$,J,1) : IFB$="3"THENB$=D 

$ELSEIFB$=" A "THENB$=E$ 

160 C$=C$+B$:NEXT:SPRITE$(I)=D$+" I****** 

" +D$+"******:"+C$:C$="": NEXT: FORI =23T028 

:READA$:F0RJ=1T016:B$=MID$(A$, J .1 ) : IFB$= 

"S"THENB$=D$ELSEIFB$=" A "THENB$=E$ 

170 C$=C$+B$:NEXT:SPRITE$(I)=DS+D$+STRIN 

G$(6.E$)+CHR$(0)+STRING$(6.E$)+D$+C$:C$= 

"" :NEXT:SPRITE$(29)=D$+" !♦♦♦*♦♦!♦♦♦♦**♦" 

+D$+" :**♦♦*♦ !♦*♦*♦*♦" 

180 ' REEL & COLOR etc. 

190 FORI=0TO11 :READCC(I) : NEXT : FORI = 1 T023 

:READR1 ( I ) , R2( I ) . R3 ( I ) :C1 ( I ) =CC ( R1 ( I ) ) : C 

2(I)=CC(R2(I) ) :C3(I)=CC(R3(I) ) : NEXT: FORI 

= 1T06:READB0(I) ,MS(I) :NEXT 

200 ME=250:MO=3:R1=20:R2=20:R3=20:GOSUB9 

10:GOSUB920:GOSUB930:A$=INKEY$: IFA$=CHR$ 

(24)THENGOSUB1100ELSEIFA$=CHR$(127)THENF 

(0)=1ELSEIFA$=CHR$(18)THENF(1)=1ELSEIFA$ 

=CHR$(11)THENF(2)=1ELSEIFA$=CHR$(27)THEN 

R = 1 

210 

220 



230 IFF(0)ORF(1 )THEN280ELSEIFF(2)THEN260 

ELSEIFNNTHEN290ELSEIFRND(1)< .07THENF(3) = 

1 :F(4)=0:GOTO290ELSEIFRND(1 X . 02THENFU) 

= 1 -.GOTO290 

240 IFRNDd )*10000<MS(MO)THENF(2)=1 :SH=0 

:GOTO260 

250 IFRND(1)*10000<BO(MO)THENF(RND(1)*2) 

=1 :F(3)=0:GOTO290ELSE290 

260 SH=SH+1 : IFRNDd X .7THENF(3)=1 :F(4)=0 

270 I FSH<25THEN250ELSESH=0: IFRNDd ) >.4TH 

ENF(2)=0:GOTO250ELSE250 . 

280 IFRNDd X .5THENF(4) = 1 

290 NN=0 :GOSUB490:GOTO220 

300 ' BIG BONUS MAIN 

310 F(2)=0:COLOR> ■ 8 : IFF ( 5 ) = 1 THENBG=BG+1 : 

PLAY"03CDCECFCG04CDCECFCG05CDCECFCG06CDC 

ECFCG":LINE(240,40)-(255,48) ,1 .BF:DRAW"B 

M240.40" :C0L0R15:PRINT#1 . USING "##"; BG : FO 

RI=0TO0:I=PLAY(0) :NEXT:F(4)=0 

320 A=F(5) :IFA=30RA=80RA=14THENF(7)=1 :G0 

TO390 

330 IFA<3THENF(3)=1 : PX=1 54 : GOTO390 

340 IFA<8THENF(3)=1 : PX=1 62 : GOTO390 

350 IFA<11THENF(3)=1 : PX=170 : GOTO390 

360 IFA<14THENF(4)=1 :GOTO390 

370 COLOR, .10:PUTSPRITE10, ( 166. 62) . 1 .29 

:PLAY"S0M15000T180L4O5C2O4A3B-8O5C2O4F2L 

8GAB-05C04L4B-AG1L8AB-05CDC4C4F2C204L4B- 

AG3F8F2" 
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380 IFINKEY$=CHR$(13)0RSTRIG(3)THENF0RI= 

0TO7:F(I)=0:NEXT:LINE( 152. 16)- (188.24) .1 

. BF: COLOR. , 5 : BEEP : PLAY"S0M300 0T255L64O8B 

CG":GOTO220ELSE380 

390 C0L0R9:PRESET(PX.16) : PRINT* 1 ."•":IFS 

TICK(J0)=1THENF(5)=F(5)+1 : IN =3 : GOSUB440 : 

GOSUB500:GOTO310ELSE390 

400 ' REG BONUS MAIN 

410 IFF(6) = 1THENC0L0R. . 1 3 : PLAV06EEEEO5B 

BBB06G+G+G+G+EEEE05BBBBBB8B06EEEEEE" :FOR 

I=0TO1000:NEXTELSEIFF(5)ANDF(6)=7THENF(6 

)=0:GOTO310ELSEIFF(6)=7THENF(6)=0:COLOR. 

.5:GOTO220 

420 IFSTICK(J0)=1THENF(6)=F(6)+1 :IN=1 : GO 

SUB440:GOSUB50 0:GOTO410ELSE420 

430 ' MEDAL IN 

440 LINEU 0.16) -(17.1 03) -1 . BF : PUTSPRITE1 

0. (0.209) :F0RI=1T0IN:PUTSPRITE9. (162.90) 

. 11 . 12: ONI GOSUB460. 470, 480 :C0L0R9: PRESET 

(10. YD :PRINT#1 >"•": PRESET ( 1 , Y2) :PRINT# 

1 ."•":PLAY"06E0.7E" :PUTSPRITE9, (0.209) :ME 

=ME-1 :GOSUB1080:NEXT:LINE(208>72)-(255»7 

9) .1 .BF 

450 IFSTRIG( JO)=0THEN450ELSEPLAY"O4CGO5E 

03C06G": RETURN 

460 Y1=56:Y2=56:RETURN 

470 Y1=36:Y2=76:RETURN 

480 Y1=16:Y2=96:RETURN 

490 ' REVOLVE 

500 TR=RND(1 )*5:FORI=0TO2:PUTSPRITEI+3. ( 

97.1*20+32) ,14,30:PUTSPRITEI+6. (122.1*20 

+32) .14.30:NEXT 

510 PUTSPRITE0. (72.32) >C1 (R1+2) .R1 (R1+2) 

:PUTSPRITE1 . (72 . 52) . C1 (R1 +1 ) > R1 ( R1 + 1 ) : PU 

TSPRITE2. (72.72) >C1 (RD.R1 (R1) :IFSTICK(J 

O)=7ANDTR=15THEN550ELSEFORI=0TO10:NEXT:R 

1=R1+1 :TR=TR-(TR<15) : IFR1 =22THENR1 = 1 :GOT 

O510ELSE510 

520 PUTSPRITE3, (97.32) ,C2(R2+2) >R2(R2+2) 

:PUTSPRITE4, (97.52) ,C2(R2+1 ) . R2 ( R2+ 1 ) : PU 

TSPRITE5. (97.72) .C2(R2) .R2(R2) :IFSTICK(J 

O)=5THEN600ELSEFORI=0TO15:NEXT:R2 = R2+1 :I 

FR2=22THENR2=1 : GOTO520ELSE520 

530 PUTSPRITE6, (122.32) .C3(R3+2) .R3(R3+2 

) :PUTSPRITE7. (122.52) .C3(R3+1 ) .R3(R3+1 ) : 

PUTSPRITE8. (122.72) .C3(R3) ,R3(R3) :IFSTIC 

K(JO)=3THEN690ELSEFORI=0TO15:NEXT:R3=R3+ 

1 :IFR3=22THENR3=1 : GOTO530ELSE530 

540 ' STOP LEFT 

550 PLAY"06EEEE":IFF(6)0RF(7)THENELSEIFF 
(4)ORF(0)ORF(1 )THEN570ELSEIFR1=3ORR1=4TH 
ENR1=5:GOTO590ELSEIFR1 >6ANDR1< 1 0THENR1 = 1 
0:GOTO590ELSEIFR1 >12ANDR1< 1 6THENR1 =1 6 :GO 
TO590ELSEIFR1 >17THENR1=21 : GOTO590ELSE590 
560 A=R1 (R1+1) : IFA=60RA=80RA=90RA=11THEN 
590ELSER1=R1+1 : IFR1 =22THENR1 =1 :GOTO560EL 
SE560 

570 IFF(4)=0THENELSEIFR1>2ANDRK9THENR1 = 
8:GOTO590ELSEIFR1 >9ANDR1< 1 3THENR1 =1 3 : GOT 
O590ELSEIFR1 >1 3ANDRK 1 7THENR1 =1 9: GOTO590 
ELSEIFR1 >17ANDR1<21THENR1=20:GOTO590ELSE 
IFR1=21ORR1=1ORR1=2THENR1=3:GOTO590ELSE5 

90 

580 IFR1<4THENR1=3ELSEIFR1=4THENELSEIFR1 

=50RR1=6THENR1=6ELSEIFR1 >6ANDR1< 1 1THENR1 

= 10ELSEIFR1 >11ANDRK14THENR1=13ELSEIFR1 = 

140RR1=15THENELSER1=21 



590 GOSUB910:IFCHTHENGOSUB1140:GOTO520EL 
SE520 

600 ' STOP CENTER 

610 PP=0:OO=0:OG=0:PLAY"O5BBBB" :IFF(6)=0 

ANDF(7)=0THEN630 

620 A=R2(R2+1 ) :IFA=4ORA=8THEN680ELSER2=R 

2+1 :IFR2=22THENR2=1 : GOTO620ELSE620 

630 IFF(4)ORF(0)ORF(1 )THEN670ELSEIFR1 =21 

ORR1=10THENPP=2:GOTO650ELSEIFR1=1ORR1=11 

THENPP=1 :GOTO650ELSEIFR1=2ORR1=12THENPP= 

0:GOTO650 

640 OG=1 : IFR1=5ORR1=16THENOO=2:GOTO660EL 

SEIFR1=6ORR1=17THENO0=1 : GOTO660ELSEIFR1 = 

7ORR1=18THENOO=0:GOTO660 

650 A=R2(R2+PP) : IFA=3ORA=4THEN680ELSER2= 

R2+1 : IFR2=22THENR2=1 : GOTO650ELSE650 

660 A=R2(R2+00) :IFA=5ORA=6THEN680ELSER2= 

R2+1 : IFR2=22THENR2=1 : GOTO660ELSE660 

670 IFR2=210RR2<6THENR2=5ELSEIFR2>5ANDR2 

<10THENR2=9ELSEIFR2>9ANDR2<14THENR2=13EL 

SEIFR2=14ORR2=15THENR2=15ELSER2=20 

680 GOSUB920:GOTO530 

690 ' STOP RIGHT 

700 PLAY"06G+G+G+G+EEEE":IFF(6)0RF(7)THE 

NELSEIFF(0)ORF(1 ) ORF (4) THEN800ELSEIFF ( 3 ) 

=0THEN770ELSEIFOGTHEN75 0ELSE730 

710 IFF(6)>3ANDRND(1 X . 1 THENELSEA=R3 ( R3+ 

1 ) :IFA=40RA=60RA = 8THENHH = 1 : GOTO890ELSER3 

=R3+1 :GOSUB880:GOTO710 

720 A=R3(R3+1):IFA<40RA=50RA=7THENF(6)=F 

(6)-1 :HH=0:GOTO890ELSER3=R3+1 :GOSUB880:G 

OTO720 

730 A=R3(R3+PP) : IF A=1 THEN890ELSEIF A=30RA 

=4THENELSER3=R3+1 : IFR3=22THENR3=1 :GOT073 

0ELSE730 

740 IFR2(R2+1 ) =1 ANDR3= 1 1 0RR2 ( R2+2) = 1 ANDR 

3=10THENR3=R3+1 : GOTO890ELSE890 

750 A=R3(R3+00) : IFA=50RA=60RA= 1 THENELSER 

3=R3+1 :IFR3=22THENR3=1 :GOTO750ELSE750 

760 IFR3=11ANDR2(R2+1)=10RR3=12ANDR2(R2) 

=1THENR3=R3+2:GOTO890ELSE890 

770 IFOGTHEN790ELSEA=R3(R3+PP) : IFA=30RA= 

40RA=1THENR3=R3+1 :GOSUB880 : GOTO770 

780 IFR1=21ANDR2(R2+1)=0ANDR3=19THENR3=2 

1 :GOTO890ELSEIFR3 = 12THENR3=13:GOTO890ELS 

E890 

790 A=R3(R3+00) : IF A=50RA=60RA=1 THENR3=R3 

+1 :GOSUB880:GOTO790ELSE890 

800 IFF(0)ORF(1 )THEN820ELSEIFR3>18THENR3 

=2:GOTO890ELSEIFR3>9ANDR3<13THENR3=13:GO 

TO890 

810 A=R3(R3+1 ) : IFA=50RA=60RA=1THENR3=R3+ 

1 :GOSUB880:GOTO810ELSEIFR3=19THENR3=2:GO 

TO890ELSE890 

820 IFF(1)THEN850ELSEIFR3<15ORR3>19THENE 

LSEIFR1 (R1 )=0THENR3=19:GOTO890:ELSEIFR1( 

R1+1)=0THENR3=20:GOTO890ELSER3=21:GOTO89 



830 IFR3=19ANDR1 ( R1 +1 ) =0ORR3=20ANDR1 (R1+ 
1 )=0THEN890ELSEIFR3=21ANDR1 (R1 +2 ) =0THEN8 
90ELSEIFR3>9ANDR3<14THENR3=13:GOTO890 
840 A=R3(R3 + 2) :B=R3(R3 + 1) : IFA=10RB=1 ORA = 
30RA=40RB=50RB=6THENR3=R3+1 : GOSUB880 : GOT 
O840ELSEIFR3=12THENR3=13:GOTO890ELSE890 
850 IFR3<6ORR3>10ORR2(R2+1)O1THEN860ELS 
EIFR1 (R1)=1THENR3=10:GOTO890:ELSEIFR1 (R1 
+1)=1THENR3=11 :GOTO890ELSER3=12:GOTO890 
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860 IFR3=10ANDR1(R1+1)=1ANDR2(R2+1)=1ORR 
3=11ANDR1 (R1+1)=1ANDR2(R2+1)=1THEN890ELS 
EIFR3 = 12ANDRKR1+2)=1THEN890ELSEIFR3>18T 

HENR3=3:GOTO890 

870 A=R3(R3+2):B=R3(R3+1):IFA=10RB=10RA= 

3ORA=4ORB=5ORB=6THENR3=R3+1:GOSUB880:GOT 

O870ELSEIFR3=19THENR3=3:GOTO890ELSE890 

880 IFR3>21THENR3=R3-21 : RETURNELSERETURN 

890 GOSUB930:GOTO950 

900 ' PUT L/C/R ~ 

910 PUTSPRITE0. (72.32) ,C1 (R1+2) ,R1 (R1+2) 
• PUTSPRITE 1.(72, 52). C1(R1+1).RKR1 + 1):PU 

TSPRITE2. (72.72) , C1 ( R1 ) > R1 < R1 > : RETURN 
920 PUTSPRITE3. (97,32) , C2 ( R2+2 ) . R2 ( R2+2) 
•PUTSPRITE4, (97,52) , C2 ( R2+1 ) > R2 ( R2+1 ) : PU 
TSPRITE5. (97, 72). C2(R2).R2(R2): RETURN 
930 PUTSPRITE6. (122.32) ,C3(R3+2) ,R3(R3+2 
)-PUTSPRITE7, (122.52) ,C3(R3+1) .R3(R3+1) : 
PUTSPRITE8.( 122.72) ,C3( R3) , R3 ( R3 ) : RETURN 

940 ' CHECK 

950 AT=0"IFF(3)ORF(6)ANDHH=1THENAT=15:F( 

3)=0-GOTO1060ELSEIFF(6)THEN1060ELSEIFF(7 

)THENAT=3:F(6)=1:F(7)=0:GOTO1060ELSEFORI 

= 1T05 • ON IGOSUB1 000, 1010,1 020, 1030. 1040: A 

= RKR1+A) :B = R2(R2 + B) :C = R3(R3+C) 

960 IFA=0ANDB=0ANDC=0THENF(5)=1 :F(0)=0:A 

T=AT+15:GOTO990ELSEIFA=1ANDB=1ANDC=1THEN 

F(1)=0:F(6)=1:AT=AT+15:GOTO990 

970 IFA=10ORA=11THENAT=AT+2:F(4)=0:GOTO9 

90ELSEIFA = 2ANDB = 2ANDC = 2THENAT = AT + 3:NN = 1 : 

GOTO990 

980 IFA<7ORA>9THEN990ELSEIFB< >8THENELSEI 

FC<70RC>8THENELSEAT=AT+3:NN=1 

990 IFAT>15THENAT=15:NEXT:GOTO1060ELSENE 

XT:GOTO1060 

1000 A=1 :B=1 :C=1 : RETURN 

B=2:C=2:RETURN 

B=0:C=0:RETURN 

B=1 :C=0:RETURN 

B=1 :C=2:RETURN 
MEDAL OUT 



A = 2: 
A = 0: 

A = 2: 
A = 0: 



1010 

1020 

1030 

1040 

1050 

1060 PUTSPRITE10, (166-62) . 1 , 1 3 : IFAT=0TH 

EN1070ELSEPLAY"O5EEO6BBBBG+G+BBBBB":FORI 

= 14TOAT+13:PUTSPRITE10, ( 1 66. 62) > 1 . I : R=R 

ND(1)*30+210:ME=ME+1 : GOSUB1 090 : FORK= 11 2T 

0192STEP16:PUTSPRITE12,(R-K) ,11 ,12: NEXT: 

1070 IFF(6)THENRETURN410ELSEIFF(5)THENRE 
TURN310ELSEFORI=0TO1200:NEXT:PLAY"O8B":R 

ETURN 

1080 ' OWN MEDALS 

1090 COLOR15:LINE(216,24)-(255.31) ,1 -BF: 
DRAW"BM216,24":PRINT#1 . USING"*****" :ME : I 
FME<0THENRETURN1210ELSERETURN 

1100 ' MODE SET " ~ 

1110 FORI=0TO300:NEXT:PUTSPRITE10> (166-6 

2).10.MO+13:IFSTRIG(JO)THEN1120ELSEIFSTI 

CK(JO)=1THENPLAY"05CD":MO=MO+1 :IFMO=7THE 

NMO=1 :GOTO1110ELSE1110ELSE1110 

1120 PLAY"04CRCRC":IFSTICK(JO)=5THENCH=1 

•DRAW"BM208 . 56" : PRINT* 1 . USING"CHECK#" ; MO 

•DRAW"BM208,64":PRINT#1."7RFfc":DRAW"BM2 

08.80":PRINT*1,"7!R!F:":RETURNELSERETURN 

1130 ' CHECK MODE 



1140 F(8)=SH+1 :A$="":FORI=0TO4:A$=A$+RIG 
HT$(STR$(F(I))-1 ) :NEXT:COLOR15:DRAW"BM20 
8.72":PRINT#1 . A$ : LINE (208 . 88) - (255 . 96) .1 
,BF-FORI=5TO8:I=I-(I=7):PRESET(208+(I-5) 
*1 6+ 16* (1=8) .88) :PRINT#1 , USING"**" : F ( I ) + 
(F(I)Ofl) :NEXT:RETURN 

1150 ' REEL CHECK 

1160 S=STICK(JO) :R=R+(S=7ANDR>1 )-(S=3AND 

R<3) : FORI = 0TO50: NEXT :ONRGOSUB1 170, 11 80.1 

190-IFSTRIG(JO)THENRETURNELSE1160 

1170 R1=R1+(S=1ANDR1>1)-(S=5ANDR1<21) : GO 

SUB910:RETURN 

1180 R2=R2+(S=1ANDR2>1)-(S=5ANDR2<21):G0 

SUB920:RETURN 

1190 R3=R3+(S=1ANDR3>1)-(S=5ANDR3<21):G0 

SUB930: RETURN 

1200 ' MEDAL LOST 

1210 PLAY" V13T120L2O3GFEE":SCREEN0: WIDTH 
40:COLOR7,1 :PRINT"You have no medal. Pus 
h<!STOP>to replay. ":P0KE-869,1 :RUN 

1220 ' DATA 

1230 DATA 0,0,200,191.14,8.8.192.110.1.1 

84,100.190.110.14,8.140.192.191 .1 .70,30. 

89,90.15,95.30.114.90.15.120.30.139.90.1 

5,20, 15,60,25,8.20.35.60.45.10.20.55.60. 

65.4.20.75,60.85.10.20.95.60.105.8 

1240 DATA 0,0,8.8.1.192.8.200.0.1.64.20. 

146.10 0. 14.64.40,146.40, 14,64,60, 146,60, 

14.64,80,146,80,14,64,100,146,20,14,30,1 

25,10,1,80, 125,6,5,105,125,6,5,130,125.6 

,5.170,110,12.14: 'GRAPHIC 

1250 DATA F3FFFFFFF8F0E003070E1D3A75EAD5 

FFC FFFFFFF1F3EFCF870E040C040C060E0 

1260 DATA 00C07E4128282E607FD5ABD5AB553F 

01 0006FCFCF8F8F8FCFC1 222321 224F800 

1270 DATA 00000000000000000003071F3C73FE 

F80060601018383070F0F0A060C0800000 

1280 DATA 0000071B377FDFFFFFFF7F3F1F0700 

000 000C0F0F8FCFEFFFAFEFCF8F0C0 0000 

1290 DATA 0000071B377EDFFFFFFD7E3F1F0700 

000 000C0F0F83C7E7F7A7EFCF8F0C00000 

1300 DATA 0001061B377FDFFFFFFF7F3F1F0700 

000000C0F0F8FCFEFEFEFEFCF8F0C0 0000 

1310 DATA 0001061B377EDFFFFFFD7E3F1F0700 

000 000C0F0F83C7E7E7E7EFCF8F0C0 0000 

1320 DATA 00011D362F7F5F7F7F7F3F3F1F0F06 

00800070F8F8FCFCFCFCFCF8F8F0E0C000 

1330 DATA 00011D362F7F5C7E7E7E3A3D1F0F06 

00800074F8F8FC7CFCFCFCF8F8F0E0C000 

1340 DATA 00011D362F7F5E7D7D7C3D3D1F0F06 

00800070P8F8FCFC7C7C7C7878F0E0C00 

1350 DATA 00000000030C183C6EDFFDBFFF7E3C 

18040E33C34040403078DCBEFEFEFC7830 

1360 DATA 00000000030C183C6EDFFFBDFE7F3C 

18040E33C3404040F0387C7E7EFEFC7830 

1370 DATA 00010609172F2B5B5B5B282F170906 

0100C030C8F4FACABDDDED9AFAF4C830C0 

1380 data ai******a******i ,aa AAAAAA a AAAA 
AA a,ai aaaaaa !♦♦♦♦♦♦! , a i AAAAAA i aaaaaa i , aa 

*+**** | AAAAAAg) , J, ; ****** ! AAAAAA j , 3 j ****** 
|******| ,g| AAAAAAJJAAAAA^a 

1390 DATA 3!******!******! , 3 I****** ! AAAA 

aa i ,ai******a******i ,aa AAAAAA a AAAAAA a.ai 

AAAAAA j****** I , 3 ! AAAAAA | AAAAAA | , QB^***** 
, AAAAAAg), J) | ****** I AAAAAA. ; 'SPRITE 

1400 DATA 6.1 ,10,7.7,9.9,3,3.3.8.8:'COLO 
R 



® 

< 
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1410 DATA 8.4.3.3.2.6.1.5.7.2.8.3-8.3.5. 
0.1, 8, 5. 5. 2, 2. 4, 3. 11. 2. 6. 1.5. 7. 9. 4. 3. 3. 2 
.1,2.5.6.8.0.7,0.4.5.2.1.4.1.5.2.6.4.3.2 
.2. 5. 10. 5. 7. 0.0. 0.8. 4. 3. 3. 2. 6: 'REEL 
1420 DATA 58.14.68.14.74.15,80,17,86,20. 
90,26: 'MODE DATA 



1430 ' CTRL + STOP 

1440 SCREEN0 : COLOR1 5 ,4 , 7 : PRINT" You have' 
; ME; "Medals" :PRINT"Big Bonus" ; BG 



mnonm 



px tf->^vx©s^x 

mm 

X,Xl,XaY,Yl,Y 
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CI (n), CE(n), C3(n) 
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CC(n) i^ffiSiJfex-^ 

CH fi'^i-K759 
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MO i££ffi(aStt3CH 
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10>7po3 
50>nnQ0 
90>L3R1 
130>NCX3 
170>gts2 
210>YBR0 
250>3sM0 
290>9Y20 
330>A960 
370>Rte1 
410>R7t2 
450>AMC0 
490>CRP0 
530>3kh3 
570>nq64 
610>s9M0 
650>qJe0 
690>ZZN0 
730>Bqt0 



20>kch1 
60>G4D2 
100>3rw0 
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10 REMX 
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50 REM* 
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270 mtp'&onTWg./m 
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770>HiY0 

810>21q0 

850>tZT1 

890>0u00 

930>0CB1 

970>urw0 

1010>vS20 

1050>UWM0 

1090>x1o0 

1130>rmL0 

1170>dtG0 

1210>9qM1 

1250>hYa0 

1290>daZ0 

1330>kWa0 

1370>CNa0 

1410>aZi2 



780>uoe0 

820>dhN1 

860>ONH2 

900>EkN0 

940>iRQ0 

980>TcY0 

1020>FS20 

1060>Nrl3 

1100>P4N0 

1140>A7L5 

1180>h1H0 

1220>DXP0 

1260>2DZ0 

1300>q ia0 

1340>wZZ0 

1380>2IS4 

1420>vqM0 



790>VoR0 

830>adb1 

870>5gi1 

910>i991 

950>Crt3 

990>kX70 

1030>SS20 

1070>mIN0 

1 110>Rkv1 

1 150>BnL0 

1190>L7H0 

1230>YGu3 

1270>MZW0 

1310>FdZ0 

1350>L6a0 

1390>oo65 

1430>o;M0 



800>SLe0 

840>COi1 

880>U860 

920>qAA1 

960>d8V1 

1000>aS20 

1040>iS20 

1080>H1M0 

1120>ADx1 

1160>2DA1 

1200>P1M0 

1240>Frx3 

1280>Gga0 

1320>Vka0 

1360>3hZ0 

1400>SGC0 

1440>75S0 



420 n-fVfSAWS/TK- 

430-480 rj-O&A 

490-530 K^AHE 
490 RE MX 

500 \i"?A#±tlOy5>/ 
y 5— jgtfi&eK^ACfEJ* 
510 £K^A©$£ffiSS/ 
7,h^7A*¥iJS/K^AIu 

520 ^K^AroStffi^S/ 
Xh>y:7A#ffi£/S^A{& 

530 SS^Affl^ffigS/ 
XSy^AAfUS/K^Affi 
■SB? 

540-590 £S5Af?± 
600-6B0 *K5A1?± 
690—890 £S5Af¥± 
900-930 K^AilSfx 
940-1040 S!S©*iJS«aS 
1050-1070 X$>'JUZ)&tBU 
1080-1090 X$>'M£il^/^ 



-A*-A-¥!B£ 

iioo-iiBO ws.ws^yr) 

1130-1140 x-i-v^-K 
1150-1190 K^AroT-'K'JSf!; 

1200-1210 y-A*-A- 

1220—1240 -ir-AHEfEfSBf 

CDffiS&dTCDx'— 9 (fr60~70, 

90rft*-3^) 

1250-1370 K^ASeffi©X7 

5-f KA^->x-^(^150r 

1380-1390 =?y$M8S<IX*. 
X^-f hA*->7*-*«7lB0 

1400-1410 K^A^ffi^je? 
-^ £ K 5 Aie^iJx-^ «il 90 

1420 K-+*tMW&.W!M 

1430 REM£ 

1440 CTRL+STOP+- 

A^Bfro^-AXVKMII 




vtzt 



£Brt/WU2eftMH:B3 







o 




■ex @ uur-ToT'-f t.5 xt- 

3*©fc»u£4tfri\fcfc"5£ 
<ntt£*««<AA 

LEMON SONG SOF 



[LEMON SONG SOF 

(yw*-)CJS51Bffi*«X« 

g-„ LfrUii/v&fflruurorL 

<ffi/u?ui:Lfctf\ t^sst: 
usi^ufcc, romc«<©« 
%ofcntt^<fc5fttitft"-5A/e 
tti v-oazcoyj-xm 

EfTOR.Jjtft 558ML.ru 
£5<!:SUi:"9"o ~56©lioB 

g#ru5©fe«A/r3-ft\ st 
tf6uuai**x&©r, JfiftSi 

3^IB«x.r£fcftffliSE< fcCSRA 
■3", 33»ri^/. x7.S7Ul'^L/r 

T£cfc3L<o 



7j>y9L> INFORMATION 



7^W)\> : 3-*.vWU(b&l\'fi 



''TAv-rJL/xi'V^ltA.iB. 7 

7>?AC«»4nfcNfi®K±© 

-)wJz>L.n. iE«cns3*nr 
■x^-pn/xiy^-tfAro^p-? 

5A«*7S3t; 

«. sxrosiudocfrBCA/c-R 

SS5fttT-58, 

£&oTUT.tfK4nru3 r x^ 

j/vJl/§»©iBKfflx-^jt.Bffi 
C«^S*lfc7 s -5'©> *7»«t©SS 
^tffi^Ut^a^Etfc'Kr, BIS 
fflf—S'tf 33S Ufc&OK £ 

s^sxtfs&ror^KMx- 
^tf'S^^ritiEUioo 

t/cL, ff9110ffliilSfflx— 9B 

yisg»©KrariSis^ct5o 

■ X^c^^x. ;;>?+*• A47X* 
-•b-7L/'CRSf6 

j"fju€'CT 7 x*-tz— :70r, A 

fflc(s#uraz;-5o 

7X*--tz-Xffl^9ritt. WT 
<D<£oC&c&-5o 

SAVE"77-rJU«", A 
»T-7«)ip 



SAVE"CAS : 77-flb«" 

(csAVErBuwao) 
■»«7p^5A«nsctts© 

''X'OVJI/fi'V^ttAjB:. Ss 

#©?l53/uW§XP25Aifi 

£MA;£fc«>©fc©£„ 

Xp^Acpffl^isr-ssx^-x 

£iBlgLAc9. REMX^iBSCfi 

^rnst, -&©ff©*Bffl?-^ 
I*. M3«*g4ooruS5©r;i«„ 

£fc, 7P?=>A£rr5;:MfSto 
ofcb. iftf tz— 7l/r£;9, 

.fcadtfUS/ur-RUNLfcto. 

■x^i/f^i/^x^'P+fArosisr 

©ffiUJ5 

©St*, SigSLfcUXP^A^P 
-KUr<So fc/cL. P-KLfc 
StRUNBL&U^t,, 

RUNLfcfctlix-S'ft'Sfto 
rL/*5fflr;iBUcfc^o 

C%. tLRUNLrU^ofcto. 
fedl-vSiiP-SL&fc-tJBXKV 
©oSCX^S/VJl'xiy^'ttAj 

5, p-sL-ret^p^^ACM 

ERGELd;7„ 
MERGE©^07JI=t. x-fXi' 

MERGE"X7-f;U«" 
SCREENO : WIDTH4D 



9000 ' SPECIAL CHECK SUM 

9010 V=PEEK(SHF676)+PEEK(&HF677)»256 

9020 V1=PEEK(V)+PEEK(V+1 ) *256: L = V1 -V-l 

9030 VS=PEEK(V+2)+PEEK(V+3)*256 

9040 IF V1=0 THEN END ELSE S=0 

9050 FOR 1=4 TO L : D=PEEK ( V+I ) 

9060 S=S+D»(I-3) :NEXT:A$="" 

9070 FOR 1 = TO 3:B = 60M3-I) :A = INT(S/B) 

9080 IF A>35 THEN C=A+61 ELSE IF A>9 THE 

N C=A+55 ELSE C=A+48 

9090 A$=CHR$(C)+A$:S=S-A»B:NEXT 

9100 PRINTUSING" ####>& &" ; VS ; A$ ; : V = V1 

9110 GOTO9020 

9000>AH50 9010>8L60 9020>7QD0 9030>C970 
9040>L040 9050>G560 9060>8n40 9070>t7E0 
9080>RrP0 9090>C970 9100>7q60 9110>dE00 



tg)GOT090DO 

^^6t+ctao 
tf»=iSftT:L><©r. wrnzntz 

RU^P^^A^ffilS-rSt^B. 
Bi;»ffil5ei©x-5tf'®®©±* 

S3©raitL«fc-5o 

'gjffiisfflx-^tf-iiorofcgBxfffl 



■y^LrifiEU, T-5«otO 

s^^r'@frt>©if K5< o^xTo 
@^n^^A#e±cttofc&, 

DELETE900C-91 1 D 

Aj©^P^^ASIjSKOK<. 
®S©fc». {fi,5%.t?S-t?p^^ 
A^-tz-^urJ3<„ 
4®. uda\d;RUNL<r&d:^o 

SfttK^^^Ur. 77>9Ao: 

r-aisrKF=1Lr^d;^o 
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:o^-V[t 








H 

* 

B 



IT 

R 
i 

9 

7 
2 

9 
7 
8 

I 




I 



so o oMwwreas u& w 



®i®* , b2iiiS< bt v CSg< 4" 
&l:f5§£<7>ft;*t>*2<4-3'C 



4^T'tc 



*^4iJ1$A.5fc$L' 



^tt' 



-> 3 -y : 






X 

STj<7)5ttl-»ixTfc^$L 



K5*fcA/©BGM 



^iiH • £L#A°y^V>(Z)fES 









10 CALLMUSICd .0.1.1.1.1.1) 

20 CLEAR500:DEFSTRA-C.T 

30 T="T110":PLAY#2.T.T.T.T.T.T 

40 A="L8C.E16GE16C16" 

50 A1=A+"<B.B16B8R8R2>" 

60 A2=A+"F+.A16F+8R8R2" 

70 A3="L16CEG>C<B6D<B>C2." 

80 B1="Q4L16RKE>E<D+>D + <E>ER16" 

90 B2$ = "RKG>G<F+>F + <G>GR16" 

100 C="C!B8H!B16H!B16" :C1=C+C+C+C+C+C 

="V3C64C64C64C64" 

=C+C+C2+C2+C2+C2+C2 

AY#2."V1333303Q5" . " V1 531 0O4Q4" . " V8 

4" ," 32205V 13" ,"31 406V 15" ."V153A3" 

RI=0TO1 

AY#2.A1 .A1 .A1 .B1 .B1 >C1 

AY#2.A2.A2.A2.B2.B2.C1 

XT 



1 10 C2 

120 C3 

130 PL 
32305Q 

140 F0 

150 PL 

160 PL 

170 NE 



180 PLAY#2."" ."" ."" ."V1039" ."V15" 
190 PLAY#2.A3> A3. A3. A3. A3. C3 



t"5<o 



*B5Jtt • ft#«£<Z)ftSS 



feU5Uc VO I CE COP 



z&zmmmzm u l \§g# 



10 

20 
30 

40 
50 



CALLMUSIC:CALLTRANSPOSE(0) 

DIM A%(15) -BX(15) .CXU5) 

CALLVOICE COPYO30.AX) 

CALLVOICE C0PYO45.BX) 

FOR 1=0 TO 15:CX(I)=INT( (AX(I)tBX(I) ) 
/26.3) :NEXT 

60 CALLVOICE C0PY(CX.363) 
70 PLAY#2."T150363O7V15L1 CFDG" . "T1 50363 
05V15L1 GCFD" 
80 GOTO 70 



9-7 



*B5J& • Krtffl&Dttft 



fflr r ct<fHri.jifrLbr5 



g#7W3frUV -&"5lV*.tf? 
Affl£g£fFofc£>, *«,??J 
fcotfo UJ"Jx-fl3>R§I8o 



88 



rno 



10 CALLMUSIC 

20 PLAY#2."05ai3Y7.2V15 C1&C1&C1&C2 

30 FOR 1=1200 TO -1200 STEP -960 

40 CALLTRANSPOSE(I) 

50 NEXT I 

60 FOR I=-1200 TO 1200 STEP 960 

70 CALLTRANSPOSE(I) 

80 NEXT I 

90 CALLPLAY(0.N) : IF N THEN 30 




wan • #»«Ria>fts 

3—7tj.^— f j7^ : j • by 7h=5> ■ t'ySoK<&3fr<!: 






r©§ii©§Mq]RCII§5fr6 



10 CALLMUSIC(0.0. 1 . 1 . 1 - 1 - 1 . 1 - 1 ) 

20 DEFSTRA.B 

30 A="L64a28V15CV14O-V13DV12E-V11EV10FV9 

G-VGV7A-V6AV5B-V4BV3>CV2D-V1DV2D-V3C<V4B 

V5B-V6AV7A-VGV96-V10FV11EV12E-V13DV14D-" 

40 B="T255" :PLAY#3.B.B.B.B.B.B.B:PLAY#3. 

"07". "06". "05" ."0" ."03". "02" ."01" 

50 FORC=1TO10:PLAY#3.A.A.A.A.A.A.A 

60 CALLTRANSPOSE(-50*C) :NEXT:GOTO50 



:^nj«fco 1807 — "7 



mmm • =mmz.<Dftm 



'JXAlcBT^'JAOTK-x-f 
K U - • U X AfflSiltf A o r 






10 CLEAR 300:CALL MUSIC ( . . 1 > 1 - 1 - 1 ) 

20 CALL PITCHU36) :CALL TRANSPOSE ( ): CAL 

L TEMPER(9) 



30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 



' A PART 

A1$="30T176V15L8O5" 

A$="B>DD<B>DL16EDL8<BA" :A2$=A$+A$ 

A3$="AGAB>D<BAGAGABAGED" 

A4$="AGAB>D<BAGR8BBBBR4." 

' B PART 

B1$="310T176V15L8O4" 

B2$="E4>E8<ER8EL4EEEE>E4<L8" 

B3$="EEEE>E<EEE EEEEEEEE" 

B4$="EEEE>E<EEE R8EEEER4." 

' C PART 

C1$="35T176V12L403" 

C2$="GR8G8R4GR4GGR4" 

C3$="L8"+A3$ 

C4$=LEFT$(A4$.10)+"R8<BBBBR4." 



PLAY#2.A1$ 
PLAY#2,A2$ 



■B1$.C1$ 
, B2$ . " " 



210 PLAY#2.A2$.B2$." " 

220 PLAY#2.A2$.B2$.C2$ 

230 PLAY#2.A2$.B2$.C2$ 

240 PLAY#2.A3$.B3$.C3$ 

250 PLAY#2.A4$.B4$.C4$ 

260 GOTO 190 



= 9-k*- (Dm^o i/ g yj 



m 



£-d:JgfflW£/(DftS 



07 • 5a- yy£B:l\3U3 






10 '-- n-h'-trofc*) - shop - (Otoa plan -- 

20 CALL MUSICd .0.1 .1 .1 ) :CLEAR 1500:DEFS 

TR A-T 

30 CALL TRANSPOSE (50) 

40 A0="O5V836Q5 L8CDECR8DR8E EDCDR8ER8D 

CDECR8DR8E EDCFR8ER8D" 

50 A2="B-AGFR8FR8A AGFGR2 B-AGFR8FR8A A 

GFG" 

60 A3="B-AGFR8FR8A AGFGR2 B-AGFR8FR8A " 

:AX="R8<GGGGGAB" 

70 AY="0536L8ER16GR16AR16L16BR16BAABR16R 

16EEEGGGR16AAAABBBB":A4=AY+AY 

80 B="L4 C.F2R8G.D2R8 C . F2R8G . AGD1 6" 

90 B0="V8O=X;333"+B 

100 B2="0=X;A+.F2R8A.ED.A+.F2R8A.ED." 

110 B3="A+.F2R8A.ED.A+.F2R4L8GGGGGAB" 

120 BA="L8C4.E4.F4.GR8GFFGR8":BX="R8CCCE 

EE R8FFFFGGG" :B4=BA+BX 

130 C0="O5 L8316Q4V2R8GGG>CCR8<G> CR4<AR 

8BR4" :C0=C0+C0 

140 C6="L8 C.E.F.L16GR16GFFGR16R16CCCEEE 

R16FFFFGGGG" 

150 G0="V7 Y56.55B8 Y40 > 1 0Y24 > 27M8M8BM8 

Y24.36M8M4Y24.27M8 Y24.36MB8B4 Y24.30MB4 

Y24,33M4B8":G0=G0+G0 

160 G2="B4.B2R8B8B4B2B8" :G2=G2+G2 

170 G="B4.B2R8B4.B2B8" :G4=G+G 

180 G6="Y24,18MB8.Y24.22M8.Y24.25MB8.Y24 

, 27M8M1 6Y24 . 25M 1 6M1 6Y24 , 27M8B 1 6Y24 , 1 8M1 6 

M16M16Y24,22M16M16BM8Y24.*25M16M16M16M16Y 

24.27M16M16BM16M16" 

190 H="L16 S7M220 08B8B8V1 303B-V8B-S708D 

8 S708D8D803V13B-V8B-S708B8 08S7B8B803V1 

3B-V8B-S708D8 08S7D8D803V1 3B-V8B-S708B8" 

:H0=H+H 

200 SOUND 7.&B001 10000:SOUND 6.1 

210 T="T180" :PLAY#2.T.T.T.T.T 

220 Z=0:X=3 

230 PLAY#2.A0.B0.C0.G0.H0 

240 PLAY#2.A0.B0 .C0 .G0.H0 

250 IF Z=1 THEN 290 

260 PLAY#2.A2.B2."" .G2.H0 

270 PLAY#2.A3+AX.B3."".G2.H0 

280 2=1 :X=4:G0T0 230 

290 X=3 

300 PLAY#2."<"+A2.B2."".G2.H0 

310 PLAY#2,A3+">"+AX,B3."" .G2.H0 

320 PLAY#2.A4,B4."".G4.H0 

330 PLAY#2.A4.B4,"".G4.H0 



89 



340 FOR X=1 TO 2 

350 PLAY#2.AY.BA,C6,G6.H 

360 PLAY#2.AY.BX,C6,G6.H 

370 NEXT X 

380 GOTO 220 



HSBfflT 5 — ^(ffi^75liB7^ 


-M 


10>df F0 


20>ql90 


30>Ax10 


40> S oV0 


50>GpE0 


60>ELQ0 


70Hr j0 


80>KB90 


90>o830 


100>CA90 


110>mi90 


120>GTb0 


130>xVQ0 


U0>QAL0 


150>d7O1 


160>oj90 


170>Hj70 


180>fGT2 


190>1uN2 


200>P830 


210>sZ40 


220>j L00 


230>SX20 


240>SX20 


250>A610 


260>bP20 


270>vj30 


280>6A20 


290>QA00 


300>Hw30 


310>wd50 


320>bQ20 


330>bQ20 


340>g010 


350>PS20 


360>qV20 


370>d700 


380>hI00 







CLUB'S 



£'£A33il7 U— XfcS&fo 
<t)7>A/&lVVCC r ;:nW 



mmif^m,cm^zui\(Dz<iz 



10 

20 

30 

40 

50 

60 

70 

80 

90 ! 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

S!1 

320 

330 

340 

350 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



0,2-1.1.1) 



MUSICC1 

BGM( 1) 
TRANSPOSE(- 
TEMPER(13) 
PITCHC436) 
VOICEO 8.323 



53) 



,324. 333.3 3) 



DEFSTR A-Z 

t 

A0="T154O5L 4V13Q8" 
B0="T154O7L 8V10Q7" 
C0="T154O3L 4V12Q5" 
D0="T154O5L12V14Q8" 
N0="T154V 13A 8" 

A1="CC<G&GC>CC8CG8" 
A2 = "R4A<:AAA>R4G{GGG>" 

B1="CEGDEGEFGDEG" 
B2="BGBAGAG<B>GG<A>G" 

» 

C1="-CCSCG>R4-CC&CA>-CC&CG>R4<C&CF>" 

C2="GCGCGC" 

C3="ACACAC" 

J 

D1="F2C6EA4F4A4" 
D2="G2D4D4E4F6G" 
D3="A6AG6GA6AG6GF6FG6G" 
D4="F6EC6FE6DE6DC2" 

» 

N1="H6H12HM!6H12HM!6H12H6H12HM!6H12H 
2SM2HBM2" 

9 

PLAY #2.A0.B0.C0.D0.N0 
PLAY #2.A1 >B1 .C1 .D1 .N1 
PLAY #2.A1 .B1 .CI .02, N1 



360 PLAY #2.A2.B2.C2.D3.N1 

370 PLAY #2.A2-B2.C3.D4.N1 

380 GOTO 340 

390 • " CLUB'S " 



n?&T-9 (ffiL\75 »B7^-S/") 



10>XB2B 


20>RUB0 


58>JN10 


6B>3Z4B 


90>EHB8 


188>cA38 


13B>tD30 


HB>k62B 


17B>0858 


18B>EHBB 


218>EH80 


22B>p2C0 


258>EH88 


26B>3G2B 


29B>iF38 


3B0>EHBB 


338>on2B 


34B>to2B 


37B>Qq2B 


388X900 



3B>RY3B 
70>EH00 
1.10>jA30 
158>EHBB 
190>fq20 
230>rE1B 
27B>IJ20 
31B>VkJB 
350>Bp2B 
390>ar2B 



40>h51B 
80>mU00 
12B>A93B 
168>xb30 
2BB >a940 
240>nC18 
280>To40 
328>EH00 
360>vo20 



W97J *6>m'CLim.^> 






frtj.frn.-—?%.mmtey7.(D 



yx\zgftz^zi^(D<L\Z 

S^ilStf 1/ «'U K353©7J, 

^ g¥7cUj^^rL^^"r'C•tt'U' 
h-5-fi>r<£:3U 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 



CALLMUSICU .0,3.3) 

POKE&HFA3C.50 

POKE&HFA4C100 

POKE&HFA6C.80 

POKE&HFA7C160 



A0$="O5312V10L16" 
A1$="EEG8A4GR16R8FFA8B4AR16R8" 
A2$="EEG8A4GR16R8DDF8G4FR16R8" 
A3$="EEG8A4GR16R8FDF8B4FR16R8" 
A4$="EEG8A4GR16R8DFA8G4AR16R8" 
A5$="EEG8A4GR16R8EFC8BAGGR4" 
A6$="EEG8A4GR16R8FGD8>C<BAAR4" 

'••• BASS ••• 

B0$="O3323V06L16" 

B1$="C4D4EFECD4E4FGFD" 

B2S="E4F4GAGEF4G4ABAF" 

B3$="F4G4ABAFE4F4GAGE" 

B4$="D4E4FGFDC4D4EFEC" 

'••• DRUMS ••• 

C0$="V15" 
C1$="MH8H8MH8H8MH8H8MH8H8MH8H8MH8S32 

S32S32S32" 

230 C2$="BH8BH8BH8BH8H8S32S32S32S32C8C8C 

8C8BC8S32S32S32S32" 

240 '••• SPG 1 ••• 

250 D0S="O7V13L32" 

260 01$="R4.CC+DD+EFF+GG+AA+BR4.CC+DD+EF 

F+GG+AA+B" 

270 '••• SPG 2 ••• 

280 E0$="O5V12L16" 

290 E1$="EGEGEGEGEGEGEGEGEGEGEGEG" 

30 E2$="GBGBGBGBGBGBGBGBGBGBGBGB" 

31 E3$="CECECECECECECECECECECECE" 

320 '••• SPG 3 ••• 

330 F0$="O5V13L16" 

340 F1$="CR16CR16CR16CR16CR16CR16DR160R1 

6DR16DR16DR16DR16" 



90 



m&m 



350 


F2$="CR16CR16CR16CR16CR16CR16<BR16BR 


16BR16BR16BR16BR16>" 








360 


'••• PLAY ••• 








370 


T$="T96" 








380 


'••• J\jj-j* ••• 


T$ 


T$ 


T$ 


39 


PLAY#2.T$ .T$ .T$ . 


400 


PLAY#2.A0$.B0$.C0$. 


D0$ 


E0$ 


F0$ 


410 


PLAY#2>"" ."" .C1$. 


D1$ 


E1$ 


F1$ 


4?0 


PLAY#2."" ."" -CIS. 


01$ 


E2$ 


F2$ 


430 


PLAY#2.A1$.B1$-C2$. 


D1$ 


E1$ 


F1$ 


440 


PLAY#2.A2$.B2$.C2$ 


D1$ 


E2$ 


F2$ 


4S0 


PLAY#2.A3$.B3$.C2$ 


D1$ 


E1$ 


F1$ 


460 


PLAY#2.A4$.B4$.C2$ 


D1$ 


E3$ 


F2$ 


470 


PLAY#2."" .B1$>"" 


D1$ 


E1$ 


.F1$ 


480 


PLAY#2."" .62$."" 


D1$ 


E2$ 


F2$ 


490 


PLAY#2.A5$.B2$.C2$ 


D1$ 


E1$ 


,F1$ 


500 


PLAY#2.A6$.B4$.C2$ 


D1$ 


,E3$ 


. F2$ 


51 


PLAY#2>"" ."" .C1$ 


D1$ 


rr rr 
1 


t 


520 


PLAY#2>"" >"" 'C1$ 


01$ 


r# rr 
I 


t 


530 


'••• *•}£/* 1% •••• 








540 


PLAY#2.A1$.B1$.C2$ 


P 


1 


' 


550 


PLAY#2.A2$.B2$.C2$ 


J 


I 


J 


560 


PLAY#2.A3$.B3$>C2$ 


T 


1 


I 


570 


PLAY#2.A4$.B4$.C2$ 


r* rr 


t 


> 


580 


PLAY#2.A5$.B2$.C2$ 


» 


» 


1 


590 


PLAY#2.A6$.B4$.C2$ 


1 


J 


f 


600 


GOTO410 









tea 


im^-SK®. 1^1*87^ 


-V) 


10>VL10 


20>aX00 


30>Ee00 


40>Ud00 


50 >cn00 


60>EH00 


70>WV20 


80>9780 


90>0C80 


100 >mA80 


1 10>2980 


120>uH70 


130>iE80 


140>JL30 


150>iW20 


160 >eU40 


170>MS40 


180>ST40 


190>wT40 


200>9L30 


210>kn00 


220 >guI0 


230>w4Q0 


240>SV30 


250>oL10 


260>itH0 


270>eV30 


280>t 110 


290>Xo80 


300 >Nd80 


310>ba80 


320>qV30 


330>6m10 


340>YbP0 


350>eMR0 


360>uM30 


370>Le00 


380>sW50 


390 >Uo40 


400>L750 


410>Mu40 


420 >Av40 


430>B950 


440 >FA50 


450>h950 


460 >9B50 


470>jq40 


480 >hr40 


490 >;950 


500 >LB50 


510>Nx30 


520>Nx30 


530 >w270 


540 >mu30 


550 >4v30 


560 >Kv30 


570>av30 


580>I1v30 


590 >mv30 


600 >VA00 



. xmom 
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10 CALLMUSICd .0.1.1.1.1) : CLEAR 1000 

20 DEFSTRA-Z 

30 01="GE16E16GE16E16" : A1 =01 +01 +01 +01 

40 A2=01+01+01+"L16GGGGGGGR16L8" 

50 A3="GFGAGF4EFEFGFE4D" 

60 A4="EDEFED4CFEFGGFAB" 

70 A5="EDEFED4CFEFGGAB>C<" 

80 A6="B>CR8C&C2R8CCCCDR8F" 

90 A7="E4R8D8D1&D4R<" 



100 A8="B1R88BBBB>CD" 

110 A9="E4R8DD1&D4R<" 

120 A0="E4R8DD2F4R8EE4R4<" 

130 P1="GGGGGGGG" : B1 =P1 +P1 +P1 +P1 

140 B2=P1+P1+P1+"GGGR16G8R8" 

150 P2="FFFFFFFF":B3=P1+P1+P2+P2 

160 P3="EEEEEEEE" :B4=P3+P3+P2+P2 

170 B5=P3+P3+P2+"GGGR16G8R8" 

180 P4="AAAAAAAA" :B6=P4+P4+P4+P4 

190 B7=P2+P2+P2+P2 

200 B8=P1+P1+P4+"AAAR16A8R8" 

210 Q1="GFEDGFED" : C1 =Q1 +Q1 +Q1 +Q1 

220 C2=Q1+Q1+Q1+"GFEFGFBR16" 

230 Q2="FEDCFEDC":C3=Q1+Q1+Q2+Q2 

240 Q3="EDC<B>EDC<B>" : C4=Q3+Q3+Q2+Q2 

250 C5=Q3+Q3+Q2+"FEDEFGAR16" 

260 Q4 = " >C< BAG >C< BAG" : C6 = Q4 + Q4 + Q4 + Q4 

270 Q5="BAGFBAGE" :C7=Q5+Q5+Q5+Q5 

280 Q6="AGFEAGFE":C8=Q6+Q6+Q6+Q6 

290 C9=Q5+Q5+">"+Q4+"C<B>C<B>C<B>CR16<" 

300 D1="GEGEGEGEGEGEGEGE" 

310 D2="GEGEGEGEFEFEFEFE" 

320 D3="EEEEEEEEFEFEFEFE" 

330 D4=">C<A>C<A>C<A>C<A>C<A>C<A>C<A>C<A 

340 D5="BGBGBGBGBGBGBGBG" 

350 D6="AGAGAGAGAGAGAGAG" 

360 D7="AGAGAGAGBGBGBGBG" 

370 R1="S8B16B16S8B16B16":E1=R1+R1+R1+R1 

380 E2=R1+R1+R1+"S8B8S16B16S8" 

390 R2="B8S8B8S8" :E3=R2+R2+R2+R2 

400 E4=R2+R2+R2+"B8S8B16S16B16S16" 

410 PLAY#2 . "T1 5207L8V1 5353" , "T1 5205Q4L1 6 

V1 2353" ."T15206Q7L1 6V1 2324" , "T1 5203Q7L8V 

10312". "T152V15" 

420 PLAY#2.A1 .B1 .C1 . D1 .E1 

430 PLAY#2.A2.B2.C2.D1 -E2 

440 PLAY#2.A3-B3.C3.02.E3 

450 PLAY#2.A4.B4.C4.03.E3 

460 PLAY#2.A3.B3.C3.D2.E3 

470 PLAY#2. A5.B5.C5.D3.E4 

480 PLAY#2.A6.B6.C6.04.E3 

490 PLAY#2.A7.B1 .C7.D5.E3 

500 PLAY#2. A8.B7.C8.D1 . E3 

510 PLAY#2.A9.B1 .C7.D5.E3 

520 PLAY#2. A6.B6.C6.D4.E3 

530 PLAY#2.A7.B1 .C7.D5.E3 

540 PLAY#2.A8.B7.C8.D1 . E3 

550 PLAY#2.A0.B8.C9.D6.E4 . 

560 GOTO440 



«BfflT ! -^(ffi^75BB7^ 


-V) 


10>rl40 


20>7N00 


30>EWF0 


40>C190 


50HB40 


60>rE40 


70 >xw40 


80>vL50 


90>5r20 


1 00 >5 i 20 


1 10>Ia20 


120 >IO40 


130>JTB0 


140>nY60 


150>4UB0 


160>aUB0 


170>WZ60 


180>5TB0 


190>KK30 


200>4T60 


210>dTB0 


220>Eb60 


230 >wTB0 


240 >oNE0 


250>aa60 


260>ZSE0 


270>DaB0 


280>1dB0 


290>KmC0 


300>5M40 


310>3L40 


320>1K40 


330>RCC0 


340 >f H40 


350>7G40 


360>DH40 


370>4EH0 


380>AH70 


390>6TB0 


400>J190 


410>Hm21 


420>tW20 


430>eX20 


440>eY20 


450>MZ20 


460>eY20 


470>7a20 


480 >Va20 


490>Ja20 


500>Va20 


510>Va20 


520>Va20 


530>Ja20 


540>Va20 


550>bb20 


560 >1C00 
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30 
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80 
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— AIRWOLF 

MUSICM .0,1.1.1.1.1.1) 
2000:DIM A%(15):F0R 1=4 TO 
=VAL("&H"+A$) :NEXT 



CALL 
CLEAR 

READ A$:AX(I 
CALL VOICE C0PY(A%.363) 
DATA F400. 00 06. 00 00. 0000 .0330. 0150 
DATA 0080.0000.0035.7410.0030.0000 
DEFSTR A-H.T:POKE &HFA3C12 
MELODY 



15 



A="<A4>DEGA4>C<BGA4>C<BGA4G6BE4D4C6D 

<B6G24" 

110 B="C4FGB->C4FE<B->C4FE<B->C4<B-6>D<G 

4F4E6FD6<B-24" 

120 C="05C4FGB->C4FE<B->C4FE<B->C4B-AFG2 

&G4S.G6&G24" 

130 D="<V12AA6AA6>DD6DD6V15GG6GG6>CC6CC6 

36FF6FF6B-B-6B-B-6AAAAAAAAAAAAA6" 

140 A1="a48L1205"+A + "&G24> , '+A + "&G24>'' 

A2="a6"+B+"&B-24":A3="a6"+C+"&G24<" 

A4="348Q4"+D 

' ECHO 

B1="R24a6V1205L12"+A+"&G24>"+A+">" 

B2 = "R24"+B:B3 = ' , R24"+C + "<" 



150 
160 
170 
180 
190 
200 
210 



ARPEGIO 



A="<A>DEABGAEGDEG":B="CFG>CD<B->C<GB 

-FGB-" 

220 C0=A+A+A:C1=C0+C0:C2=B+B+B:C3=C0+A+ 

A6" 

230 ' STRINGS 

240 D0="V15L4O5A2>CDE2DC<BGEBA2>CDE2DC<B 

GE>D":D1="C2EFGAGB->CT* 

250 D2="04Q4L12V12AA6AA6>DD6DD6V15GG6GG6 
>CC6CC6FF6FF6B-B-6B-B-6BBBBBBBBBBBBB6" 

260 ' SUB 

270 E0 = ">C&C2.V15F12E12<B-12>CKV9" 

280 E1="V120436Q4L12EE6EE6AA6AA6>DD6DD6G 

G6GG6>V15CC6CC6FF6FF6EEEEEEEEEEEEE6" 

290 ' BASS 

300 A="< AAAAAAAAAAAA>" : B="CCCCCCCCCCCC" 
310 F0=A+A+A:F1=F0+F0:F2=B+B+B:F3=F0+A+" 

<A6R2" 

320 ' DRUMS 

330 A="HB12H12H12HSB12H12H12HB12H12H12HS 

B12H12H12" 

340 G0 = A+A+A:G2 = "C + A+A + A:G1=G2+G0:G3=G2 

+A+"CSB1" 

350 ' PSG 

360 H0="RGRGRGRGRGRG" 
RGG' 



(NOISE & CHORD) 

' :H1=H0 + H0:H2 = H0 + "RG 



370 
380 
390 
400 
410 
420 
430 



A="A&A&A& 
D="E&E&E& 
G="DDDDD6 



B=A+A:C=">C&C&C<" 

E=D+D:F="G&G&G&" 

H="AAAAA6" 

PLAY MUSIC 

7.48:S0UND 6.31 

:PLAY#2.T.T,T.T.T.T.T 



SOUND 

T="T128 

T="363V1502G1&G1 



T.T: 

:PLAY#2.T.T.T.T 



(O 19H3 by MCA MUSIC. A DIVISION OF MCA, INC. 
92 All rights reserved Used by permission 

Rights for Japan assigned to MCA MUSIC K.K.. c/o NICHION. INC. 



440 
L1" 
0". 
450 
460 
470 
480 
490 
500 
510 



PLAY#2 ,"","". "31 2V1 204L 1 2Q4" . "32V905 
. "32V905L 1 " . "31 2V1 203L 1 2Q6" . " V1 5Y5 5 . 8 
'M5000S0L4O8"."V9L1O3"."V9L1O3" 
PLAY#2>"" ."".C0. A .D .F0.G0.H0.A.D 
PLAY#2.A1 .B1 .C1 .B .E . F1 . G1 . H1 . B. E 
PLAY#2.A2.B2.C2.C .F . F2 . G2 . H0 .C. F 
PLAY#2,A3.B3.C2,C , E0 . F2 . G2 . H0 ,C. F 
PLAY#2,A1 .B1.C1.D0.E .F1.G1.H1.B.E 
PL AY#2 , A3 . B3 . C2 . D 1 . E0 . F2 . G2 . H0 . C . F 
PLAY#2.A4.A4.C3.D2.E1 . F3 . G3 . H2 .G > H 



mmm^-v m^-n\m^- v) 



10>MW80 


20>4w20 


50>pF30 


60 >sd60 


90>tu70 


100 >4tF0 


130 >Uwe0 


140 >4MC0 


170>O960 


180>b0E0 


210>wMG0 


220>qtM0 


250>BTL0 


260>1G60 


290>aj60 


300>EvB0 


330>ANH0 


340>F6T0 


370>Ua80 


380>u780 


410>oD10 


420>EV90 


450>b870 


460>8M70 


490>aQ70 


500>dX70 



30>D260 
70 >9d60 
110>lqK0 
150>AmD0 
190 >SB80 
230 >Wc80 
270>Lv70 
310>HBP0 
350>fdF0 
390>LP40 
430>ff70 
470>OO70 
510>8d70 



40 >OD70 
80 >vi20 
120 >KxH0 
160 >9u10 
200>CS80 
240>q9W0 
280 >omk0 
320>hP70 
360>gpJ0 
400>4HA0 
440>RhT1 
480>AT70 



J 



ri7A^-j*0lp/KX^— SST 
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©£^Cgx3£, /3o5©ffl 
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■z?-A*79*-SST' by JL2TBB for MS X-MUSIC 

CALLMUSICd ,0.2.1.1-1.1) 

CLEAR2000:DEFSTRA-H:CALLPITCH(440) 

POKE&HFA2C.20:SOUND7,55:SOUND6>10 

'=====>VIBRAPHONE/BRASS (CH1) 

A(0)="Tai6OQ7L16" 

A(1)="V9B-DFB->DFDE<EAOEAECD-<FA->CD 

-FA-FD-A-FD-C<A->CEV12G" 

80 A(2)=LEFT$(A(1) .51 ) +"31 406Y48 , 247A" 

90 G="Y32.32G4.R16FE8FE8DCDE4.R16E":A(3) 

=G+"FEC<A8GR16>A":A(4)=G+"FEFGR8.A" 

100 A(5)=A(3) :A(6)=G+">C<B-AGR8.36<G" 

110 A(7)="V11A4.GA8R8B->C<B>CD8.R16D-DA8 

rftFflF8DC( G" 

120 A(8)=*'>C4.<B->C8R8CD-DE-F8EF>C<B-A-G 

FE-D-R16CR16<B-R16>C" 

130 A(9)="F4.E-F8R8GA-B->CD-8C<B>E-<B-AA 

->D-<GG-FV11B-FE-V10C<G" 

140 A(10)="V9A1" 

>=====>SYNTH BASS (CH2) 

B(0)="Ta31O5L8Vl3" 

B(1 )="C4&C. >C2<C2R16>C8.<G16R16C8." 
J_(2)=LEFT$(B(1 ) ,15)+"CCR16<C8." 

B(3)="L16<B->CC8C<B-8>OCR16C<B-8FGB 

-GC8CDF8C8C>C<CDEOC<" 

20 B(4)="G<GG8>G8<G>A8<A>DEADEAB- 

>DFR16C8C>C<CB-AGC" 

210 B(5)="B-<B-B-8>B-<B-8>C8<CFG>C<FG>CD 

-D-D-8FA-R16E-8E->E-<E->D-C<B-E-" 



150 
160 
170 

180 
190 



■<B-B-8 



Tri&m 



220 B(6)="a33<<<G1R16a31V15>>>GCDFG8FCDC 

<B-GFB-G>" 

230 '=====>CHORD (CH3.4.5) 

240 C(0)="Tai4V10O5L8":D(0)=C(0)+"<" :E(0 

)=D(0) 

250 G="D4&D.E2F2R16":C(1)=G+"F.E16R16E-. 

":C(2)=G+"L16AAAAR16L8G." 

260 G="B-4&B-. >C2D-2R16":D(1 ) =G+"D- . Q4CQ 

<B-.":D(2)=G+"L16FFFFR16L8E.<" 

270 G="F4&F.G2A-2R16":E(1)=G+"A-.G16R16G 

-8." :E(2)=G+"L16>D-D-D-D-R16L8C.<" 

280 C(3)= ,, a0V8D2.R16D16R16E2.R8E-." 

290 D(3)="a0V8B-2.Rl6B-16R16A2.R8B." 

300 E(3)="a0V8F2.R16F16R16G2.R8G-." 

310 C(4)="39D4&D.E2F2A4G16R16A." 

320 D(4)="a9B-4&B-.>C2D2F4E16R16E.<" 

330 E(4)="a9F4&F.G2B-2>C4C16R16C.<" 

340 C(5)="F4&F.G2A-2>C4<B-16R16G." 

350 D(5)=">D-4SD-.E-2F2A-4G16R16E-." 

360 E(5)="A-4&A-.B-2>C2F4E-16R16C." 

370 C(6)="a2A1":D(6)="a2F1":E(6)="02C1" 

380 '=====>RHYTHM 

390 F(0)="TV33A15" 

400 F(1)="B!C! 16H16H16H16HS!16H16H16C!B! 

16H16H16H16H16HS!16H16H16C!B!16H24H24H24 

H16H16HS!16H16H16H16S!16B!8S!8C!8" 

410 F(2)=LEFT$(F(1) . 94) +"V1 5S1 6S1 6S8BSC8 

V3" 

420 F(3)="V10CB!16V3HB!16H16H16S!16H16H1 

6HB!16H16S!16HB!16H16S!16H16H16S!H16":F( 

3)=F(3)+F(3) 

430 G="HB!16HB!16C8HS!16H16C!16B!16H16HS 

!16CB!8HS!16H16C!8":F(4)=G+G 

440 F(5)=G+"HB!16HB! 16C ! 1 6HB ! 1 6HS ! 1 6C ! B ! 

24H24H24SM6H16C!B!16HB!16S!16HB!16S!16S 

I16SM6" 



450 F(6)="V15BC2. . S24M24Y24 . 0M24Y24 . 200B 

16S8B16CS8B16S16S16B16SC8S32V3S32V15S16S 

16S16" 

460 FORJ=0TO1 :X=0: Y=0:GOSUB560 

470 FORI=0TO3:X=I¥3+1 :Y=IM0D2+1 

480 GOSUB560:NEXT 

490 Y=3:FORX=3TO6:GOSUB560:NEXT 

500 X=7:Y=4:FORI=0TO1 :GOSUB560 :NEXT 

510 Y=5:FORX=8TO9:GOSUB560:NEXT 

520 X=10:Y=6:GOSUB560 

530 NEXT 

540 FORY=3TO6:GOSUB570:NEXT 

550 GOTO460 

560 PLAY#2.A(X) .B(Y).C(Y),D(Y).E(Y).F(Y) 

•.RETURN 

570 PLAY#2."".B(Y) ."".""."". F ( Y ) ."TSM420 

0RCS4CSCRCS4CSC" : RETURN 
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-tn 




10>86I0 


20>XI20 


30>YD50 


40>D230 


50>q290 


60>be20 


70>h8W0 


80>U890 


90>83q0 


100>9ZA0 


110>DFJ0 


120>chR0 


130>JVU0 


140>jL10 


150>sk50 


160>Jv20 


170>L6A0 


180>p970 


190>kbT0 


200>POQ0 


210>kNd0 


220>4cI0 


230>vp40 


240>HbG0 


250>U2a0 


260>jGg0 


270>1Bj0 


280>2080 


290>YQ80 


300>g280 


310>IU60 


320>YO80 


330>3t70 


340>SL70 


350>w880 


360>ch70 


370>66B0 


380>vZ20 


390>7o10 


400>vvY1 


410>jQC0 


420>nn51 


430>91c0 


440>9vr0 


450>Y7v0 


460>4A40 


470>VZ80 


480>HN00 


490>2R30 


500>NM50 


510>IS30 


520>Ke10 


530>B200 


540>Tu10 


550>1D00 


560>giA0 


570>ANN0 
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10 CALL MUSICd ,0.1.1.1) 

20 A1$="337Q3T160V6" 

30 A2$="05L8R8<E>E<ER4>E<ER4>E<ER8E 

>E<E" 

40 B1$="T160333" 

50 B2$="03V8L4ER8BB8>E<C+R8G+G+8>C+ 

<" 

60 C1$="T16033" 

70 C2$="06E8L24F+ED+E4L8G+AAG+B4>ED 

+EL24F+ED+E8<B8" 

80 C3$="S1406L8C+L24<B>C+<BG+8F+8B8 

G+BG+F+8E8G+8F+G+F+E8C+8F+8EF+EC+8< 

B8>" 

90 C4$="3905L8C+EEF+G+F+E>C+<B2G+4F 

+4317L24V10>EF+G+B+>C+E+F+G+B2" 

100 B4$="03V8L4ER8BB8>E<C#R8G#G#8>C 
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^7t-sa 



OVoBI 




3^0«O»lC^7-rB!lffi7?a«lHlo 



«S8BH £fltt r tt*liaiE 



>+t-hfej7ornS£U5i!i&S*©zi.x 
?-f7X til*fi6iEEtf#E©£H MO- 
i7V(M)tt r X-^'^fi5j©7.-'r7.— fX- 

^KblS'bCidfrl, 

ErogtfBffl^&ffl j— -— — 




1177 77. glj+jy+j? 



7V— b\V/* ■«»!! -MO- 


1 SCREEN5,3:COLOR15. 1 ,10:DIMX 


(15) :CLS:SETPAGE.1 :CLS:LINE(2 


9, 15) -(29, 33) : LINE- (34, 40) :LI 


NE-(32,50):LINE-(34,50):LINE( 


29, 33) -( 25 ■ 50 ) : CIRCLE (29,25 ) , 


10, , 5.5,2.36:FORI = 20TO210STEP 


30: COPY (I , 0)-( 1+29, 50 ) TO ( 1+30 


■0) : NEXT: FORI =0TO31 : RE ADAS 


2 B$ = B$ + CHR$(VALC&H" + A$) ) :NE 


XT:FORI=22TO242STEP30:READX ,Y 


:LINE(I,19)-STEP(X,Y) :NEXT:SE 


TPAGE,0:SPRITE$(0)=B$:FORI=10 


TO249STEP30 :J=I/30:X(J)=I:X(1 


5-J)=I : NEXT: DRAW BM0.1 31 R255" 


3 RESTORE6:FORI=0TO14:PUTSPRI 


TE0, (102+RNDf 1 )*4,64) , 11 :COPY 


(X(C) ,0)-(X (0+29,50 ), 1T0( 100 


,80) :READX,Y:LINE(115, 130) -ST 


EP(-X.-Y) :C=C+.5+(C=14)*14.5 


4 FORJ=0TO4:NEXT:NEXT:GOTO3 


5 DATA7.9, 16, 17,9, 1B, 17, 19, 1A 


,E,F,D,8,C,6,3,E0,90,68,E8,90 


,D8,E8,98,D8,70,F0,B0, 10 ,30,6 


0.C0, 12, 13, 10, 15, 7, 17, 3, 18, -3 


,18,-7,17,-10,15,-12, 13 


6 DATA 7,0,6,1,5,3,4,5,3,6,4, 


5,5,3,6,1,7,0,6,1,5,3,4,5,3,6 


,4,5,5,3,6,1 



<j5|Ct:va7 7 JUZ) 

Lfc-jorn5t 
fr-otdl^ 29x29 




1 SCREEN1 ,2:WIDTH29:C0L0R15,4 
,4:L0CATE8,2:PRINT"7*5 S-A." : F 
ORJ=0TO15 00:NEXT:A$="" :F0RI=1 
T032:READA: A$=A$+CHR$ ( A) :NEXT 
:SPRITE$(0)=A$:SPRITE$(1 )=A$: 
SPRITE$(2)=A$ 

2 DATA 5,11,5,19,9,5,19,9,5,3 
,9,5,3,1 ,1 ,1 , 160,208,160,200, 
144, 164,200 ,144,160, 192, 144 , 1 
60,192,128, 128,128 

3 FORI=0TO100:PUTSPRITE0> (I ,1 
00),2,0:PUTSPRITE1,(I,50),2,0 
:PUTSPRITE2, (I,150),2,0:NEXTI 

4 FORI=0TO500 :NEXT:FORI=0TO10 
:L0CATE8,4:PRINTLEFT$.("7X# 3 
??? ", I) :FORJ=0TO500:NEXTJ,I 

5 FORI=0TO50:X=INT(RND(1 )»29) 
:Y=INT(RND(1 )#23) :LOCATEX,Y:P 
RINT"?" : 

6 NEXTI :FORI=0TO480:NEXT:FORI 
=0TO16:LOCATE5, 1 : PRINTLEFT$( 

"8ie»7*9u M) :FORJ = 0T 

O150:NEXTJ,I:FORI=100TO250:PU 
TSPRITE0, (1,100) :PUTSPRITE1 , ( 
I ,50) ,2,0:PUTSPRITE2, (I, 150) , 
2,0:NEXT 

7 GOT07 

&b ^> £#:<£> 1,(0 XVOfFpps L/OlSHi; 

7 7 'rx7 7 ©f / F□ c gtfg^C45LK•3^Sofc^ 
TSttdf, tii)^7)l<tLZZnt)K\-bl£tvTi 

r'Lfc Q ^f7K>S7K'J5 3 -©Z3<Z> : S»© 

i5^^CDib*n§yvx^©r\ tru-nnr 

r B*©SiyAj(^;lXS)A' ; cJ;n„ HftJgfl 
-< k x y x i u z tix'Trr? 1 1 y x tz / 



Qfc&7>*i*ft c iaJ u "imtiii*^ Lv>- •*-* otfr 



fl^ifbU* ■»SJll«-/3x&o<i:*sL/isD 

i C0L0R1 , 15,15:SCREEN5 

2 FORI=0TO3:READX, Y,X1 ,Y1 ,C:L 
INE(X,Y)-(X1,Y1),C,BF:NEXT:DA 
TA45, 100,80, 125, 1 1 ,43,98,82,1 
0, 11 ,60,123,65, 126- 15 ,58,85, 
67,97, 14 

3 FORI=0TO2:READX,Y,Z:CIRCLE( 
X,Y) ,Z,12, , , . 33 : PAINT (X,Y) , 12 
:NEXT:DATA77,81 ,29,45,82,17,5 
5,69,23 

4 COPY(0,0)-( 128,211 )TO(128,0 
) 



5 OPEN"GRP: 
) :PRINT#1 , ' 

6 G0T06 



"AS#1 :PSET( 124,11 
■" :CL0SE#1 



£\ 3©25©AV77r-^A»EffJWlce 
/cW©SL^P^^A^7J^d;bfMfflLS1-„ 

£fc, ^□^^A©egxggtn5is^F«gr> 



mmmi *>o?<m?rto 



feo &<%. ; z>£m<&&mt£timc£z>zM 
■zZiMtDUz&fainit', r=fccfc<r$r 

n©x*^^^s*tj:5^w^x^^ s^ 
a • 7i-^-i+r-£i^(Dztff\ znzm 




& ^ Eft 

T- C < 

r i ft 

i it 



XrUTr^frlCOUTJL^/tUa-A^t©!* 


Sti^/I/^S?^ * HM • nvtfa-S'f BE 


10 


SCREEN5:COLOR15 ,0,0 


20 


LINE(45,55)-( 195 ,55) :LINE- 


(195,120) : LINE- (45, 120) :LINE- 


(45,55) 


30 


FORI=52TO200STEP10:C=RND(1 


)»5+10 


40 


F0RP=1 19T055STEP-5 


50 


C = C-1 : IFC<2THEN70 


60 


LINEd ,P)-( 1-5, P) ,C 


70 


NEXTP, I :X=7:Y=2:Z=2 


80 


FORI=2T015:COLOR=( I ,X,Y,Z) 


:C0L0R=(I-1 , 0,0,0) : IFI >6THENX 


= 3 


Y=6:Z=7:NEXTELSENEXT 


90 


F0RI=15T03STEP-1 :COLOR=(I, 


X.I 


■ Z) :COLOR=( 1-1,0,0,0) :IFI< 


7THENX=7:Y=2:Z=2:NEXTELSENEXT 


10£ 


GOTO80 
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MZQ 3—-)— <7)f8ft7 f a;y-7Afo *EP=CS3(R A M 8 KU±)E3l2/2+J 

** = ESfc /2+ (VRAMI28K)SL *** = CS32+*fflT-r 



*=CS32/2+(V R AM64KliLL) ffl. 



RADIAL AREA^>(M)©^pdB, * 

I^tf£±CMWor, LK^^CO^fc 
£9C&o/c9 1 OC-ftofcOirSo MSB 

S££B^§©jbW£^fc*tr£I[UUfr;& 

SA'^nor'afecg'ij-r^-ro 




f.-'j.'TfcM; 



-i^fc'j 



^^©| 



!!TD 



** BUHg ■ RADIAL AREA 



If CLEAR200 
COLOR15.0 .0 
O1024:POKEI 
2:NEXT:BEEP 
20 FORI=0TO 
L("&H"+MID$ 
D16F4626D24 
126D36F5626 
F126D16F702 
1B7CDB700D8 
3FD0F1C300D 
BEEP:A=USR( 



,&H[>00 
:SCREE 
+ &HD1 
:DEFUS 
71 :P0K 
("21A2 
EF53E0 
D45EF5 
6D271C 
E53EFA 
0" .1*2 
0) 



:OEF 
N7,0: 
,RND 
R = &HD 
E&HD0 
FC1EF 
0C5E1 
78924 
5E1 F5 
21A2F 
+ 1.2) 



INTA-2: 

FORI--0T 

(11*13+ 

000 

00+1 , VA 

F733C26 

CD7701F 

779934F 

CD7701E 

C46B8D2 

) :NEXT: 



Emvin<MMSXt)©fFKtt, ,\m 

rHtf20|q]*^O 

rnSo dr'e>icr+5 

A©/&7jU < t)7>-2> 







5 DIMP(2671 ) :SCREEN7:SETPAGE 
0.0:COLOR15. 1 . 1 :CLS:A=15:B=1 

DRAWBM255 , 32M43 , 21 Ml 6 , 29M 
57,41M168,63M183,72M195,1 16M2 
12.125M210, 130M195, 134M192.13 
9" 

DRAWM176, 142M175, 144M192, 
H6M192. 150M190, 1 52M1 88 , 1 67M1 
75, 1 70 M 155, 172M153.178M142.18 
3M140, 186M130, 198M25 5 . 197" 
*■! C0PY(16.21 )-(255. 198) ,0TOP 
:C0PYP,1TD(495.21) , : PAINT ( 25 
5,126) ,15,15 

i GOSUB60:SWAPA,B:FORI=0TO7: 
C0L0R=(A, I. I , I) :C0L0R=(B,7-I. 
7-1. 7-1) :NEXT:GOTO50 
6e FORI=0TO1 : I=-STRIG(0) :NEXT 
:RETURN 



=mgb*Jxa<M>QttmfcmD£&Qo 

3©b7jmc s M><ptz®mmmtsn&jX'5> 

->45355o -btifrlz, fr20© r FOR J=0 




e©flWI(Dte£Q* ■Eii^myin 


If SCREEN5:COLOR15. 1 . 1 rSETPAG 


E1 .1 :CLS:SETPAGE1 .0:FORI = 0TO2 


3: LINE (20, 95) -(20 + 1*8, 130) ,15 


,B:NEXT:FORI=0TO3:CIRCLE(40+6 


0*1 ,40) ,30 , 15:NEXT: DRAWBM30 , 


20S80R1D2L1BU1R1BR2BU1R1D1L1D 


1R1BR3U2BR2R1D2L1U2" : LINE (0,8 


0)-(8,1 15) .15,BF:SETPAGE1 .1 :C 


0L0R15, 1 , 1 


! FORJ=0TO3:CLS:COPY(20.95)- 


(204, 130) ,0TO(20,95) , 1 :FORI=0 


TO22:COPY(0,80)-(8.115) ,0TO(2 


0+1*8,95) . 1 :FORK=0TO2:NEXTK, I 


:CLS:COPY(10+60*J , 10) -(10+60* 


J, 70) ,0TO(85,65) , 1 :NEXT 



Il^XMS), yz>7, £>tztzfrl\S5$i 

(Dm%ft®b®b?z>z(Dtt^ mma*? 
£„ £, id^=fc©<±: 

m$5£bTi\ fc*c 
r A->jorttft 

■5«fc3£f£5B : fe2£o 5 




J3 ^** ■**« • SStteStt 

~"IF~c"OL0R15.1 • 1 :SCREEN7:Z = 0:OP| 
EN"GRP:"AS#1 :FORI=100TO1STEP- 
10:IFA=15THENA=1 1ELSEA=15 
20 CIRCLE(250. 120) . I, A. , . .2:P 
AINT(250, 120) .A:NEXTI 

» CIRCLE(250,80) ,35, 14, , , .2: 
DRAW"BM214,8 0D35BM285,80D35BM 
214, 1 15F7BM285.1 1 5G 7" : CIRCLE ( 
250, 120) ,30, 14, ,, .2 
*P PAINT(220,100) , 14:PAINT(25 
0-120),14:PAINT(250,80),12.14 
DRAWC2BM240, 1 1 R20L 1 6H2F5 
H3R12E2G5BM250,103G1L2G1L3G1L 
4BM250, 10 3F1R2F1R3F1R4BM24 5, 1 
07R10L5U2D8C14H4C2L1G2L1BM254 
-109R1F2R1" 
60 PSET(200. 160) :PRINT#1 , "JSS + 

r*« tr*5¥* ." 

70 X=0:Y=0:FORI=0TO7STEP.5:X= 

X+SIN(I)*2:Y=Y+2:IFZ=0THENA=1 

5ELSEA=1 

80 FORJ=1TO3:PSET(220+X+J*15. 

72- Y) .A:NEXTJ, I : IFZ = 0THENZ = 1 E 

LSEZ=0 

9B GOTO70 



© r ®©®nBjisg/ci7©fF-pqo &sor# 
BfcBifcL^rsi:c:5ir3*o 3ri*s?Bfi 




^'b>tf— * m=fmm- 


MtfeA, 


10 COLOR, 0, :SCREEN5:0PEN"GRP 
:" AS 1 :PSET( 100,220) ,9:DRAW"R5 
U100H50E20F30U90BR5 0D90E30F20 
G50D100R5" : PAINT ( 1 1 0,200) .9,9 
20 PRESET(30,50) :PRINT#1 ,"1t-j 
^-^ffcfft" :FORE = 0TO5:IFSTRIG( 
01THEN40 


30 FORI=0TO15:VDP(24)=IMOD2*5 

:NEXTI,E:GOTO 20 

40 PRESET(30,50) :PRINT#1 ,"Vt-j 

50 IFSTRIG(0)THEN20ELSEGOTO 4 




'k 1 FORJ = 10TO5STEP-1 :F0RI=244T 
01 STEP-10: SOUND! , J : S0UND8 , 1 : N 
EXTI,J:G0T0 10 



%mz-<yi;vz>-(Dtt^tzmnmm 
■rso &©*D-57> 

SD?t, His© 

ibursrL^ 

5— Aa Ctj x L© 

«-A*1t7J N UL\S : fc " 







10 COLO 

A-Z:SET 

= (I , I .1 

EP10:C= 

256, 1+9 

CLS:CIR 

3:PAINT 

20 FORI 

PY(0,Y) 

XT:CIRC 

128,50 

0:PAINT 

88:Y=RN 

)-(I.Y) 

,212) ,3 

30 SETP 



5,1,1 

GE, 1 : 

) :NEX 

D(1 )* 

CBF: 

E(128 

28,20 

T0256 

0,212 

(128 

:CIRC 

28,13 

1 )*40 

:NEXT 

(0,0) 

E2:G0 



:SCRE 
F0RI = 
T:F0R 
5 + 2:L 
NEXT: 
,190) 
0) ,6 
:Y = RN 
) , 1T0 
50) ,4 
LEI12 
0) .0 : 
+ 160: 
:C0PY 
,2,TP 
TO30 



EN5:DEFINT 
0TO7:COLOR 
I=0TO210ST 
INE(0,I)-( 
SETPAGE.3: 
, 1 00 ,6, , , . 

D( 1 )*20:CO 
(1,0) ,2:NE 
0,0:PAINT( 
8. 130) ,60, 
FORI=68T01 
LINE ( I .130 
(0.0)-(256 
SET 



SfgT*& r MSX J ^S^(;«M7 7'>t^^L-+j, r MSXtRjJtfi£*;lt, ftH«V7 Mfc£L»ffiT- 1 7JFW3)*«5» It <7>a]*tlJSfiOT,Bi.^i i- K 
i.*t«r?B£l2f, ZA.t£Ztr-U&b\ ^at-sis-tt/u 
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